/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_emacs.idb / usr / freeware / share / emacs / 19.34 / lisp / dired-aux.elc.z / dired-aux.elc

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 72 6d 73 40 64 65 6c |piled by| rms@del|
|00000020| 61 73 79 64 2e 67 6e 75 | 2e 61 69 2e 6d 69 74 2e |asyd.gnu|.ai.mit.|
|00000030| 65 64 75 20 6f 6e 20 4d | 6f 6e 20 4d 61 79 20 20 |edu on M|on May  |
|00000040| 36 20 32 30 3a 30 36 3a | 32 33 20 31 39 39 36 0a |6 20:06:|23 1996.|
|00000050| 3b 3b 3b 20 66 72 6f 6d | 20 66 69 6c 65 20 2f 68 |;;; from| file /h|
|00000060| 6f 6d 65 2f 66 73 66 2f | 72 6d 73 2f 65 31 39 2f |ome/fsf/|rms/e19/|
|00000070| 6c 69 73 70 2f 64 69 72 | 65 64 2d 61 75 78 2e 65 |lisp/dir|ed-aux.e|
|00000080| 6c 0a 3b 3b 3b 20 65 6d | 61 63 73 20 76 65 72 73 |l.;;; em|acs vers|
|00000090| 69 6f 6e 20 31 39 2e 33 | 30 2e 39 39 2e 35 2e 0a |ion 19.3|0.99.5..|
|000000a0| 3b 3b 3b 20 62 79 74 65 | 63 6f 6d 70 20 76 65 72 |;;; byte|comp ver|
|000000b0| 73 69 6f 6e 20 46 53 46 | 20 32 2e 31 30 0a 3b 3b |sion FSF| 2.10.;;|
|000000c0| 3b 20 6f 70 74 69 6d 69 | 7a 61 74 69 6f 6e 20 69 |; optimi|zation i|
|000000d0| 73 20 6f 6e 2e 0a 3b 3b | 3b 20 74 68 69 73 20 66 |s on..;;|; this f|
|000000e0| 69 6c 65 20 75 73 65 73 | 20 6f 70 63 6f 64 65 73 |ile uses| opcodes|
|000000f0| 20 77 68 69 63 68 20 64 | 6f 20 6e 6f 74 20 65 78 | which d|o not ex|
|00000100| 69 73 74 20 69 6e 20 45 | 6d 61 63 73 20 31 38 2e |ist in E|macs 18.|
|00000110| 0a 0a 28 69 66 20 28 61 | 6e 64 20 28 62 6f 75 6e |..(if (a|nd (boun|
|00000120| 64 70 20 27 65 6d 61 63 | 73 2d 76 65 72 73 69 6f |dp 'emac|s-versio|
|00000130| 6e 29 0a 09 20 28 6f 72 | 20 28 61 6e 64 20 28 62 |n).. (or| (and (b|
|00000140| 6f 75 6e 64 70 20 27 65 | 70 6f 63 68 3a 3a 76 65 |oundp 'e|poch::ve|
|00000150| 72 73 69 6f 6e 29 20 65 | 70 6f 63 68 3a 3a 76 65 |rsion) e|poch::ve|
|00000160| 72 73 69 6f 6e 29 0a 09 | 20 20 20 20 20 28 73 74 |rsion)..|     (st|
|00000170| 72 69 6e 67 2d 6c 65 73 | 73 70 20 65 6d 61 63 73 |ring-les|sp emacs|
|00000180| 2d 76 65 72 73 69 6f 6e | 20 22 31 39 2e 32 39 22 |-version| "19.29"|
|00000190| 29 29 29 0a 20 20 20 20 | 28 65 72 72 6f 72 20 22 |))).    |(error "|
|000001a0| 60 64 69 72 65 64 2d 61 | 75 78 2e 65 6c 27 20 77 |`dired-a|ux.el' w|
|000001b0| 61 73 20 63 6f 6d 70 69 | 6c 65 64 20 66 6f 72 20 |as compi|led for |
|000001c0| 45 6d 61 63 73 20 31 39 | 2e 32 39 20 6f 72 20 6c |Emacs 19|.29 or l|
|000001d0| 61 74 65 72 22 29 29 0a | 0a 0a 23 40 32 33 32 20 |ater")).|..#@232 |
|000001e0| 43 6f 6d 70 61 72 65 20 | 66 69 6c 65 20 61 74 20 |Compare |file at |
|000001f0| 70 6f 69 6e 74 20 77 69 | 74 68 20 66 69 6c 65 20 |point wi|th file |
|00000200| 46 49 4c 45 20 75 73 69 | 6e 67 20 60 64 69 66 66 |FILE usi|ng `diff|
|00000210| 27 2e 0a 46 49 4c 45 20 | 64 65 66 61 75 6c 74 73 |'..FILE |defaults|
|00000220| 20 74 6f 20 74 68 65 20 | 66 69 6c 65 20 61 74 20 | to the |file at |
|00000230| 74 68 65 20 6d 61 72 6b | 2e 0a 54 68 65 20 70 72 |the mark|..The pr|
|00000240| 6f 6d 70 74 65 64 2d 66 | 6f 72 20 66 69 6c 65 20 |ompted-f|or file |
|00000250| 69 73 20 74 68 65 20 66 | 69 72 73 74 20 66 69 6c |is the f|irst fil|
|00000260| 65 20 67 69 76 65 6e 20 | 74 6f 20 60 64 69 66 66 |e given |to `diff|
|00000270| 27 2e 0a 57 69 74 68 20 | 70 72 65 66 69 78 20 61 |'..With |prefix a|
|00000280| 72 67 2c 20 70 72 6f 6d | 70 74 20 66 6f 72 20 73 |rg, prom|pt for s|
|00000290| 65 63 6f 6e 64 20 61 72 | 67 75 6d 65 6e 74 20 53 |econd ar|gument S|
|000002a0| 57 49 54 43 48 45 53 2c | 0a 20 77 68 69 63 68 20 |WITCHES,|. which |
|000002b0| 69 73 20 6f 70 74 69 6f | 6e 73 20 66 6f 72 20 60 |is optio|ns for `|
|000002c0| 64 69 66 66 27 2e 1f 0a | 28 64 65 66 61 6c 69 61 |diff'...|(defalia|
|000002d0| 73 20 27 64 69 72 65 64 | 2d 64 69 66 66 20 23 5b |s 'dired|-diff #[|
|000002e0| 28 66 69 6c 65 20 26 6f | 70 74 69 6f 6e 61 6c 20 |(file &o|ptional |
|000002f0| 73 77 69 74 63 68 65 73 | 29 20 23 40 35 39 20 28 |switches|) #@59 (|
|00000300| 22 c0 09 c2 c3 21 5c 66 | 23 87 22 20 2e 20 5b 64 |"....!\f|#." . [d|
|00000310| 69 66 66 20 66 69 6c 65 | 20 64 69 72 65 64 2d 67 |iff file| dired-g|
|00000320| 65 74 2d 66 69 6c 65 6e | 61 6d 65 20 74 20 73 77 |et-filen|ame t sw|
|00000330| 69 74 63 68 65 73 5d 29 | 1f 28 23 24 20 2e 20 37 |itches])|.(#$ . 7|
|00000340| 36 37 29 20 6e 69 6c 20 | 34 20 28 23 24 20 2e 20 |67) nil |4 (#$ . |
|00000350| 34 38 30 29 20 28 6c 65 | 74 20 28 28 64 65 66 61 |480) (le|t ((defa|
|00000360| 75 6c 74 20 28 69 66 20 | 28 6d 61 72 6b 20 74 29 |ult (if |(mark t)|
|00000370| 20 28 73 61 76 65 2d 65 | 78 63 75 72 73 69 6f 6e | (save-e|xcursion|
|00000380| 20 28 67 6f 74 6f 2d 63 | 68 61 72 20 28 6d 61 72 | (goto-c|har (mar|
|00000390| 6b 20 74 29 29 20 28 64 | 69 72 65 64 2d 67 65 74 |k t)) (d|ired-get|
|000003a0| 2d 66 69 6c 65 6e 61 6d | 65 20 74 20 74 29 29 29 |-filenam|e t t)))|
|000003b0| 29 29 20 28 72 65 71 75 | 69 72 65 20 28 71 75 6f |)) (requ|ire (quo|
|000003c0| 74 65 20 64 69 66 66 29 | 29 20 28 6c 69 73 74 20 |te diff)|) (list |
|000003d0| 28 72 65 61 64 2d 66 69 | 6c 65 2d 6e 61 6d 65 20 |(read-fi|le-name |
|000003e0| 28 66 6f 72 6d 61 74 20 | 22 44 69 66 66 20 25 73 |(format |"Diff %s|
|000003f0| 20 77 69 74 68 3a 20 25 | 73 22 20 28 64 69 72 65 | with: %|s" (dire|
|00000400| 64 2d 67 65 74 2d 66 69 | 6c 65 6e 61 6d 65 20 74 |d-get-fi|lename t|
|00000410| 29 20 28 69 66 20 64 65 | 66 61 75 6c 74 20 28 63 |) (if de|fault (c|
|00000420| 6f 6e 63 61 74 20 22 28 | 64 65 66 61 75 6c 74 20 |oncat "(|default |
|00000430| 22 20 64 65 66 61 75 6c | 74 20 22 29 20 22 29 20 |" defaul|t ") ") |
|00000440| 22 22 29 29 20 28 64 69 | 72 65 64 2d 63 75 72 72 |"")) (di|red-curr|
|00000450| 65 6e 74 2d 64 69 72 65 | 63 74 6f 72 79 29 20 64 |ent-dire|ctory) d|
|00000460| 65 66 61 75 6c 74 20 74 | 29 20 28 69 66 20 63 75 |efault t|) (if cu|
|00000470| 72 72 65 6e 74 2d 70 72 | 65 66 69 78 2d 61 72 67 |rrent-pr|efix-arg|
|00000480| 20 28 72 65 61 64 2d 73 | 74 72 69 6e 67 20 22 4f | (read-s|tring "O|
|00000490| 70 74 69 6f 6e 73 20 66 | 6f 72 20 64 69 66 66 3a |ptions f|or diff:|
|000004a0| 20 22 20 28 69 66 20 28 | 73 74 72 69 6e 67 70 20 | " (if (|stringp |
|000004b0| 64 69 66 66 2d 73 77 69 | 74 63 68 65 73 29 20 64 |diff-swi|tches) d|
|000004c0| 69 66 66 2d 73 77 69 74 | 63 68 65 73 20 28 6d 61 |iff-swit|ches (ma|
|000004d0| 70 63 6f 6e 63 61 74 20 | 28 71 75 6f 74 65 20 69 |pconcat |(quote i|
|000004e0| 64 65 6e 74 69 74 79 29 | 20 64 69 66 66 2d 73 77 |dentity)| diff-sw|
|000004f0| 69 74 63 68 65 73 20 22 | 20 22 29 29 29 29 29 29 |itches "| "))))))|
|00000500| 5d 29 0a 23 40 32 39 35 | 20 44 69 66 66 20 74 68 |]).#@295| Diff th|
|00000510| 69 73 20 66 69 6c 65 20 | 77 69 74 68 20 69 74 73 |is file |with its|
|00000520| 20 62 61 63 6b 75 70 20 | 66 69 6c 65 20 6f 72 20 | backup |file or |
|00000530| 76 69 63 65 20 76 65 72 | 73 61 2e 0a 55 73 65 73 |vice ver|sa..Uses|
|00000540| 20 74 68 65 20 6c 61 74 | 65 73 74 20 62 61 63 6b | the lat|est back|
|00000550| 75 70 2c 20 69 66 20 74 | 68 65 72 65 20 61 72 65 |up, if t|here are|
|00000560| 20 73 65 76 65 72 61 6c | 20 6e 75 6d 65 72 69 63 | several| numeric|
|00000570| 61 6c 20 62 61 63 6b 75 | 70 73 2e 0a 49 66 20 74 |al backu|ps..If t|
|00000580| 68 69 73 20 66 69 6c 65 | 20 69 73 20 61 20 62 61 |his file| is a ba|
|00000590| 63 6b 75 70 2c 20 64 69 | 66 66 20 69 74 20 77 69 |ckup, di|ff it wi|
|000005a0| 74 68 20 69 74 73 20 6f | 72 69 67 69 6e 61 6c 2e |th its o|riginal.|
|000005b0| 0a 54 68 65 20 62 61 63 | 6b 75 70 20 66 69 6c 65 |.The bac|kup file|
|000005c0| 20 69 73 20 74 68 65 20 | 66 69 72 73 74 20 66 69 | is the |first fi|
|000005d0| 6c 65 20 67 69 76 65 6e | 20 74 6f 20 60 64 69 66 |le given| to `dif|
|000005e0| 66 27 2e 0a 57 69 74 68 | 20 70 72 65 66 69 78 20 |f'..With| prefix |
|000005f0| 61 72 67 2c 20 70 72 6f | 6d 70 74 20 66 6f 72 20 |arg, pro|mpt for |
|00000600| 61 72 67 75 6d 65 6e 74 | 20 53 57 49 54 43 48 45 |argument| SWITCHE|
|00000610| 53 20 77 68 69 63 68 20 | 69 73 20 6f 70 74 69 6f |S which |is optio|
|00000620| 6e 73 20 66 6f 72 20 60 | 64 69 66 66 27 2e 1f 0a |ns for `|diff'...|
|00000630| 28 64 65 66 61 6c 69 61 | 73 20 27 64 69 72 65 64 |(defalia|s 'dired|
|00000640| 2d 62 61 63 6b 75 70 2d | 64 69 66 66 20 23 5b 28 |-backup-|diff #[(|
|00000650| 26 6f 70 74 69 6f 6e 61 | 6c 20 73 77 69 74 63 68 |&optiona|l switch|
|00000660| 65 73 29 20 23 40 35 38 | 20 28 22 c0 c1 20 5c 6e |es) #@58| (".. \n|
|00000670| 5c 22 87 22 20 2e 20 5b | 64 69 66 66 2d 62 61 63 |\"." . [|diff-bac|
|00000680| 6b 75 70 20 64 69 72 65 | 64 2d 67 65 74 2d 66 69 |kup dire|d-get-fi|
|00000690| 6c 65 6e 61 6d 65 20 73 | 77 69 74 63 68 65 73 5d |lename s|witches]|
|000006a0| 29 1f 28 23 24 20 2e 20 | 31 36 34 31 29 20 6e 69 |).(#$ . |1641) ni|
|000006b0| 6c 20 33 20 28 23 24 20 | 2e 20 31 32 38 39 29 20 |l 3 (#$ |. 1289) |
|000006c0| 28 62 79 74 65 2d 63 6f | 64 65 20 22 08 85 16 00 |(byte-co|de "....|
|000006d0| c1 c2 0b 3b 83 0f 00 0b | 82 14 00 c4 c5 0b c6 23 |...;....|.......#|
|000006e0| 5c 22 43 87 22 20 5b 63 | 75 72 72 65 6e 74 2d 70 |\"C." [c|urrent-p|
|000006f0| 72 65 66 69 78 2d 61 72 | 67 20 72 65 61 64 2d 73 |refix-ar|g read-s|
|00000700| 74 72 69 6e 67 20 22 4f | 70 74 69 6f 6e 73 20 66 |tring "O|ptions f|
|00000710| 6f 72 20 64 69 66 66 3a | 20 22 20 64 69 66 66 2d |or diff:| " diff-|
|00000720| 73 77 69 74 63 68 65 73 | 20 6d 61 70 63 6f 6e 63 |switches| mapconc|
|00000730| 61 74 20 69 64 65 6e 74 | 69 74 79 20 22 20 22 5d |at ident|ity " "]|
|00000740| 20 36 29 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 | 6)]).(d|efalias |
|00000750| 27 64 69 72 65 64 2d 64 | 6f 2d 63 68 78 78 78 20 |'dired-d|o-chxxx |
|00000760| 23 5b 28 61 74 74 72 69 | 62 75 74 65 2d 6e 61 6d |#[(attri|bute-nam|
|00000770| 65 20 70 72 6f 67 72 61 | 6d 20 6f 70 2d 73 79 6d |e progra|m op-sym|
|00000780| 62 6f 6c 20 61 72 67 29 | 20 23 40 33 33 39 20 28 |bol arg)| #@339 (|
|00000790| 22 c0 c1 5c 6e 5c 22 1b | c4 c5 0e 06 c7 51 c8 0e |"..\n\".|.....Q..|
|000007a0| 09 5c 6e 0b 25 1e 5c 6e | 0e 0b cc 0e 5c 6e 51 1e |.\n.%.\n|....\nQ.|
|000007b0| 0d c8 1e 0e cf d0 d1 0e | 0d 0e 0b 0e 5c 6e 45 0b |........|....\nE.|
|000007c0| 24 16 0e d2 5c 6e 21 88 | 0e 0e 85 3d 01 30 d3 d4 |$...\n!.|...=.0..|
|000007d0| d5 0e 0d 5c 22 c8 5c 22 | 2c 87 22 20 2e 20 5b 64 |...\".\"|,." . [d|
|000007e0| 69 72 65 64 2d 67 65 74 | 2d 6d 61 72 6b 65 64 2d |ired-get|-marked-|
|000007f0| 66 69 6c 65 73 20 74 20 | 61 72 67 20 66 69 6c 65 |files t |arg file|
|00000800| 73 20 64 69 72 65 64 2d | 6d 61 72 6b 2d 72 65 61 |s dired-|mark-rea|
|00000810| 64 2d 73 74 72 69 6e 67 | 20 22 43 68 61 6e 67 65 |d-string| "Change|
|00000820| 20 22 20 61 74 74 72 69 | 62 75 74 65 2d 6e 61 6d | " attri|bute-nam|
|00000830| 65 20 22 20 6f 66 20 25 | 73 20 74 6f 3a 20 22 20 |e " of %|s to: " |
|00000840| 6e 69 6c 20 6f 70 2d 73 | 79 6d 62 6f 6c 20 6e 65 |nil op-s|ymbol ne|
|00000850| 77 2d 61 74 74 72 69 62 | 75 74 65 20 70 72 6f 67 |w-attrib|ute prog|
|00000860| 72 61 6d 20 22 20 22 20 | 6f 70 65 72 61 74 69 6f |ram " " |operatio|
|00000870| 6e 20 66 61 69 6c 75 72 | 65 73 20 64 69 72 65 64 |n failur|es dired|
|00000880| 2d 62 75 6e 63 68 2d 66 | 69 6c 65 73 20 31 30 30 |-bunch-f|iles 100|
|00000890| 30 30 20 64 69 72 65 64 | 2d 63 68 65 63 6b 2d 70 |00 dired|-check-p|
|000008a0| 72 6f 63 65 73 73 20 64 | 69 72 65 64 2d 64 6f 2d |rocess d|ired-do-|
|000008b0| 72 65 64 69 73 70 6c 61 | 79 20 64 69 72 65 64 2d |redispla|y dired-|
|000008c0| 6c 6f 67 2d 73 75 6d 6d | 61 72 79 20 66 6f 72 6d |log-summ|ary form|
|000008d0| 61 74 20 22 25 73 3a 20 | 65 72 72 6f 72 22 5d 29 |at "%s: |error"])|
|000008e0| 1f 28 23 24 20 2e 20 31 | 39 33 35 29 20 6e 69 6c |.(#$ . 1|935) nil|
|000008f0| 20 36 5d 29 0a 23 40 31 | 31 34 20 43 68 61 6e 67 | 6]).#@1|14 Chang|
|00000900| 65 20 74 68 65 20 6d 6f | 64 65 20 6f 66 20 74 68 |e the mo|de of th|
|00000910| 65 20 6d 61 72 6b 65 64 | 20 28 6f 72 20 6e 65 78 |e marked| (or nex|
|00000920| 74 20 41 52 47 29 20 66 | 69 6c 65 73 2e 0a 54 68 |t ARG) f|iles..Th|
|00000930| 69 73 20 63 61 6c 6c 73 | 20 63 68 6d 6f 64 2c 20 |is calls| chmod, |
|00000940| 74 68 75 73 20 73 79 6d | 62 6f 6c 69 63 20 6d 6f |thus sym|bolic mo|
|00000950| 64 65 73 20 6c 69 6b 65 | 20 60 67 2b 77 27 20 61 |des like| `g+w' a|
|00000960| 72 65 20 61 6c 6c 6f 77 | 65 64 2e 1f 0a 28 64 65 |re allow|ed...(de|
|00000970| 66 61 6c 69 61 73 20 27 | 64 69 72 65 64 2d 64 6f |falias '|dired-do|
|00000980| 2d 63 68 6d 6f 64 20 23 | 5b 28 26 6f 70 74 69 6f |-chmod #|[(&optio|
|00000990| 6e 61 6c 20 61 72 67 29 | 20 23 40 37 31 20 28 22 |nal arg)| #@71 ("|
|000009a0| c0 c1 5c 6e c3 5c 66 24 | 87 22 20 2e 20 5b 64 69 |..\n.\f$|." . [di|
|000009b0| 72 65 64 2d 64 6f 2d 63 | 68 78 78 78 20 22 4d 6f |red-do-c|hxxx "Mo|
|000009c0| 64 65 22 20 64 69 72 65 | 64 2d 63 68 6d 6f 64 2d |de" dire|d-chmod-|
|000009d0| 70 72 6f 67 72 61 6d 20 | 63 68 6d 6f 64 20 61 72 |program |chmod ar|
|000009e0| 67 5d 29 1f 28 23 24 20 | 2e 20 32 34 36 32 29 20 |g]).(#$ |. 2462) |
|000009f0| 6e 69 6c 20 35 20 28 23 | 24 20 2e 20 32 32 39 39 |nil 5 (#|$ . 2299|
|00000a00| 29 20 22 50 22 5d 29 0a | 23 40 35 33 20 43 68 61 |) "P"]).|#@53 Cha|
|00000a10| 6e 67 65 20 74 68 65 20 | 67 72 6f 75 70 20 6f 66 |nge the |group of|
|00000a20| 20 74 68 65 20 6d 61 72 | 6b 65 64 20 28 6f 72 20 | the mar|ked (or |
|00000a30| 6e 65 78 74 20 41 52 47 | 29 20 66 69 6c 65 73 2e |next ARG|) files.|
|00000a40| 1f 0a 28 64 65 66 61 6c | 69 61 73 20 27 64 69 72 |..(defal|ias 'dir|
|00000a50| 65 64 2d 64 6f 2d 63 68 | 67 72 70 20 23 5b 28 26 |ed-do-ch|grp #[(&|
|00000a60| 6f 70 74 69 6f 6e 61 6c | 20 61 72 67 29 20 23 40 |optional| arg) #@|
|00000a70| 31 34 37 20 28 22 08 c1 | 3e 83 5c 6e 01 30 c2 c3 |147 ("..|>.\n.0..|
|00000a80| 21 88 c4 c5 c6 c7 0e 08 | 24 87 22 20 2e 20 5b 73 |!.......|$." . [s|
|00000a90| 79 73 74 65 6d 2d 74 79 | 70 65 20 28 6d 73 2d 64 |ystem-ty|pe (ms-d|
|00000aa0| 6f 73 20 77 69 6e 64 6f | 77 73 2d 6e 74 29 20 65 |os windo|ws-nt) e|
|00000ab0| 72 72 6f 72 20 22 63 68 | 67 72 70 20 6e 6f 74 20 |rror "ch|grp not |
|00000ac0| 73 75 70 70 6f 72 74 65 | 64 20 6f 6e 20 74 68 69 |supporte|d on thi|
|00000ad0| 73 20 73 79 73 74 65 6d | 2e 22 20 64 69 72 65 64 |s system|." dired|
|00000ae0| 2d 64 6f 2d 63 68 78 78 | 78 20 22 47 72 6f 75 70 |-do-chxx|x "Group|
|00000af0| 22 20 22 63 68 67 72 70 | 22 20 63 68 67 72 70 20 |" "chgrp|" chgrp |
|00000b00| 61 72 67 5d 29 1f 28 23 | 24 20 2e 20 32 36 37 36 |arg]).(#|$ . 2676|
|00000b10| 29 20 6e 69 6c 20 35 20 | 28 23 24 20 2e 20 32 35 |) nil 5 |(#$ . 25|
|00000b20| 37 33 29 20 22 50 22 5d | 29 0a 23 40 35 33 20 43 |73) "P"]|).#@53 C|
|00000b30| 68 61 6e 67 65 20 74 68 | 65 20 6f 77 6e 65 72 20 |hange th|e owner |
|00000b40| 6f 66 20 74 68 65 20 6d | 61 72 6b 65 64 20 28 6f |of the m|arked (o|
|00000b50| 72 20 6e 65 78 74 20 41 | 52 47 29 20 66 69 6c 65 |r next A|RG) file|
|00000b60| 73 2e 1f 0a 28 64 65 66 | 61 6c 69 61 73 20 27 64 |s...(def|alias 'd|
|00000b70| 69 72 65 64 2d 64 6f 2d | 63 68 6f 77 6e 20 23 5b |ired-do-|chown #[|
|00000b80| 28 26 6f 70 74 69 6f 6e | 61 6c 20 61 72 67 29 20 |(&option|al arg) |
|00000b90| 23 40 31 36 30 20 28 22 | 08 c1 3e 83 5c 6e 01 30 |#@160 ("|..>.\n.0|
|00000ba0| c2 c3 21 88 c4 c5 0e 06 | c7 0e 08 24 87 22 20 2e |..!.....|...$." .|
|00000bb0| 20 5b 73 79 73 74 65 6d | 2d 74 79 70 65 20 28 6d | [system|-type (m|
|00000bc0| 73 2d 64 6f 73 20 77 69 | 6e 64 6f 77 73 2d 6e 74 |s-dos wi|ndows-nt|
|00000bd0| 29 20 65 72 72 6f 72 20 | 22 63 68 6f 77 6e 20 6e |) error |"chown n|
|00000be0| 6f 74 20 73 75 70 70 6f | 72 74 65 64 20 6f 6e 20 |ot suppo|rted on |
|00000bf0| 74 68 69 73 20 73 79 73 | 74 65 6d 2e 22 20 64 69 |this sys|tem." di|
|00000c00| 72 65 64 2d 64 6f 2d 63 | 68 78 78 78 20 22 4f 77 |red-do-c|hxxx "Ow|
|00000c10| 6e 65 72 22 20 64 69 72 | 65 64 2d 63 68 6f 77 6e |ner" dir|ed-chown|
|00000c20| 2d 70 72 6f 67 72 61 6d | 20 63 68 6f 77 6e 20 61 |-program| chown a|
|00000c30| 72 67 5d 29 1f 28 23 24 | 20 2e 20 32 39 36 36 29 |rg]).(#$| . 2966)|
|00000c40| 20 6e 69 6c 20 35 20 28 | 23 24 20 2e 20 32 38 36 | nil 5 (|#$ . 286|
|00000c50| 33 29 20 22 50 22 5d 29 | 0a 28 64 65 66 61 6c 69 |3) "P"])|.(defali|
|00000c60| 61 73 20 27 64 69 72 65 | 64 2d 62 75 6e 63 68 2d |as 'dire|d-bunch-|
|00000c70| 66 69 6c 65 73 20 23 5b | 28 6d 61 78 20 66 75 6e |files #[|(max fun|
|00000c80| 63 74 69 6f 6e 20 61 72 | 67 73 20 66 69 6c 65 73 |ction ar|gs files|
|00000c90| 29 20 23 40 32 31 37 20 | 28 22 c0 c1 c0 1a 1b 1c |) #@217 |("......|
|00000ca0| 0d 83 48 01 30 0d 40 89 | 1e 06 47 c7 5c 5c 1e 08 |..H.0.@.|..G.\\..|
|00000cb0| 0d 41 1e 09 5c 66 83 36 | 01 30 0e 08 0b 5c 5c 0e |.A..\f.6|.0...\\.|
|00000cc0| 5c 6e 56 83 36 01 30 cb | 0e 5c 66 cd 0e 0e 5c 66 |\nV.6.0.|.\f...\f|
|00000cd0| 5c 22 5c 22 5c 6e a4 12 | c0 14 c1 13 0d 5c 66 a1 |\"\"\n..|.....\f.|
|00000ce0| 88 0d 14 0e 08 0b 5c 5c | 13 0e 09 15 2b 82 06 01 |......\\|....+...|
|00000cf0| 30 cb 0e 5c 66 cd 0e 0e | 5c 66 5c 22 5c 22 5c 6e |0..\f...|\f\"\"\n|
|00000d00| a4 2b 87 22 20 2e 20 5b | 6e 69 6c 20 30 20 66 61 |.+." . [|nil 0 fa|
|00000d10| 69 6c 75 72 65 73 20 70 | 65 6e 64 69 6e 67 2d 6c |ilures p|ending-l|
|00000d20| 65 6e 67 74 68 20 70 65 | 6e 64 69 6e 67 20 66 69 |ength pe|nding fi|
|00000d30| 6c 65 73 20 74 68 69 73 | 66 69 6c 65 20 33 20 74 |les this|file 3 t|
|00000d40| 68 69 73 6c 65 6e 67 74 | 68 20 72 65 73 74 20 6d |hislengt|h rest m|
|00000d50| 61 78 20 61 70 70 6c 79 | 20 66 75 6e 63 74 69 6f |ax apply| functio|
|00000d60| 6e 20 61 70 70 65 6e 64 | 20 61 72 67 73 5d 29 1f |n append| args]).|
|00000d70| 28 23 24 20 2e 20 33 32 | 32 34 29 20 6e 69 6c 20 |(#$ . 32|24) nil |
|00000d80| 36 5d 29 0a 23 40 31 32 | 39 20 50 72 69 6e 74 20 |6]).#@12|9 Print |
|00000d90| 74 68 65 20 6d 61 72 6b | 65 64 20 28 6f 72 20 6e |the mark|ed (or n|
|00000da0| 65 78 74 20 41 52 47 29 | 20 66 69 6c 65 73 2e 0a |ext ARG)| files..|
|00000db0| 55 73 65 73 20 74 68 65 | 20 73 68 65 6c 6c 20 63 |Uses the| shell c|
|00000dc0| 6f 6d 6d 61 6e 64 20 63 | 6f 6d 69 6e 67 20 66 72 |ommand c|oming fr|
|00000dd0| 6f 6d 20 76 61 72 69 61 | 62 6c 65 73 20 60 6c 70 |om varia|bles `lp|
|00000de0| 72 2d 63 6f 6d 6d 61 6e | 64 27 20 61 6e 64 0a 60 |r-comman|d' and.`|
|00000df0| 6c 70 72 2d 73 77 69 74 | 63 68 65 73 27 20 61 73 |lpr-swit|ches' as|
|00000e00| 20 64 65 66 61 75 6c 74 | 2e 1f 0a 28 64 65 66 61 | default|...(defa|
|00000e10| 6c 69 61 73 20 27 64 69 | 72 65 64 2d 64 6f 2d 70 |lias 'di|red-do-p|
|00000e20| 72 69 6e 74 20 23 5b 28 | 26 6f 70 74 69 6f 6e 61 |rint #[(|&optiona|
|00000e30| 6c 20 61 72 67 29 20 23 | 40 32 35 32 20 28 22 c0 |l arg) #|@252 (".|
|00000e40| c1 5c 6e 5c 22 1b c4 c5 | c6 c7 0e 08 0e 09 3b 83 |.\n\"...|......;.|
|00000e50| 17 01 30 0e 09 43 82 19 | 01 30 0e 09 42 ca 23 cb |..0..C..|.0..B.#.|
|00000e60| 5c 6e 0b 25 1e 5c 66 cd | ce 0e 5c 66 0b cf 23 21 |\n.%.\f.|..\f..#!|
|00000e70| 2a 87 22 20 2e 20 5b 64 | 69 72 65 64 2d 67 65 74 |*." . [d|ired-get|
|00000e80| 2d 6d 61 72 6b 65 64 2d | 66 69 6c 65 73 20 74 20 |-marked-|files t |
|00000e90| 61 72 67 20 66 69 6c 65 | 2d 6c 69 73 74 20 64 69 |arg file|-list di|
|00000ea0| 72 65 64 2d 6d 61 72 6b | 2d 72 65 61 64 2d 73 74 |red-mark|-read-st|
|00000eb0| 72 69 6e 67 20 22 50 72 | 69 6e 74 20 25 73 20 77 |ring "Pr|int %s w|
|00000ec0| 69 74 68 3a 20 22 20 6d | 61 70 63 6f 6e 63 61 74 |ith: " m|apconcat|
|00000ed0| 20 69 64 65 6e 74 69 74 | 79 20 6c 70 72 2d 63 6f | identit|y lpr-co|
|00000ee0| 6d 6d 61 6e 64 20 6c 70 | 72 2d 73 77 69 74 63 68 |mmand lp|r-switch|
|00000ef0| 65 73 20 22 20 22 20 70 | 72 69 6e 74 20 63 6f 6d |es " " p|rint com|
|00000f00| 6d 61 6e 64 20 64 69 72 | 65 64 2d 72 75 6e 2d 73 |mand dir|ed-run-s|
|00000f10| 68 65 6c 6c 2d 63 6f 6d | 6d 61 6e 64 20 64 69 72 |hell-com|mand dir|
|00000f20| 65 64 2d 73 68 65 6c 6c | 2d 73 74 75 66 66 2d 69 |ed-shell|-stuff-i|
|00000f30| 74 20 6e 69 6c 5d 29 1f | 28 23 24 20 2e 20 33 36 |t nil]).|(#$ . 36|
|00000f40| 34 35 29 20 6e 69 6c 20 | 36 20 28 23 24 20 2e 20 |45) nil |6 (#$ . |
|00000f50| 33 34 36 36 29 20 22 50 | 22 5d 29 0a 28 64 65 66 |3466) "P|"]).(def|
|00000f60| 61 6c 69 61 73 20 27 64 | 69 72 65 64 2d 6d 61 72 |alias 'd|ired-mar|
|00000f70| 6b 2d 72 65 61 64 2d 73 | 74 72 69 6e 67 20 23 5b |k-read-s|tring #[|
|00000f80| 28 70 72 6f 6d 70 74 20 | 69 6e 69 74 69 61 6c 20 |(prompt |initial |
|00000f90| 6f 70 2d 73 79 6d 62 6f | 6c 20 61 72 67 20 66 69 |op-symbo|l arg fi|
|00000fa0| 6c 65 73 29 20 23 40 31 | 32 36 20 28 22 c0 c1 5c |les) #@1|26 ("..\|
|00000fb0| 6e 0b c4 c5 0e 06 c7 0e | 08 0b 5c 22 5c 22 0e 09 |n.......|..\"\"..|
|00000fc0| 26 06 87 22 20 2e 20 5b | 64 69 72 65 64 2d 6d 61 |&.." . [|dired-ma|
|00000fd0| 72 6b 2d 70 6f 70 2d 75 | 70 20 6e 69 6c 20 6f 70 |rk-pop-u|p nil op|
|00000fe0| 2d 73 79 6d 62 6f 6c 20 | 66 69 6c 65 73 20 72 65 |-symbol |files re|
|00000ff0| 61 64 2d 73 74 72 69 6e | 67 20 66 6f 72 6d 61 74 |ad-strin|g format|
|00001000| 20 70 72 6f 6d 70 74 20 | 64 69 72 65 64 2d 6d 61 | prompt |dired-ma|
|00001010| 72 6b 2d 70 72 6f 6d 70 | 74 20 61 72 67 20 69 6e |rk-promp|t arg in|
|00001020| 69 74 69 61 6c 5d 29 1f | 28 23 24 20 2e 20 34 30 |itial]).|(#$ . 40|
|00001030| 31 31 29 20 6e 69 6c 20 | 31 30 5d 29 0a 28 62 79 |11) nil |10]).(by|
|00001040| 74 65 2d 63 6f 64 65 20 | 22 c0 09 42 11 c0 87 22 |te-code |"..B..."|
|00001050| 20 5b 64 69 72 65 64 2d | 66 69 6c 65 2d 76 65 72 | [dired-|file-ver|
|00001060| 73 69 6f 6e 2d 61 6c 69 | 73 74 20 63 75 72 72 65 |sion-ali|st curre|
|00001070| 6e 74 2d 6c 6f 61 64 2d | 6c 69 73 74 5d 20 32 29 |nt-load-|list] 2)|
|00001080| 0a 23 40 33 35 33 20 46 | 6c 61 67 20 6e 75 6d 65 |.#@353 F|lag nume|
|00001090| 72 69 63 61 6c 20 62 61 | 63 6b 75 70 73 20 66 6f |rical ba|ckups fo|
|000010a0| 72 20 64 65 6c 65 74 69 | 6f 6e 2e 0a 53 70 61 72 |r deleti|on..Spar|
|000010b0| 65 73 20 60 64 69 72 65 | 64 2d 6b 65 70 74 2d 76 |es `dire|d-kept-v|
|000010c0| 65 72 73 69 6f 6e 73 27 | 20 6c 61 74 65 73 74 20 |ersions'| latest |
|000010d0| 76 65 72 73 69 6f 6e 73 | 2c 20 61 6e 64 20 60 6b |versions|, and `k|
|000010e0| 65 70 74 2d 6f 6c 64 2d | 76 65 72 73 69 6f 6e 73 |ept-old-|versions|
|000010f0| 27 20 6f 6c 64 65 73 74 | 2e 0a 50 6f 73 69 74 69 |' oldest|..Positi|
|00001100| 76 65 20 70 72 65 66 69 | 78 20 61 72 67 20 4b 45 |ve prefi|x arg KE|
|00001110| 45 50 20 6f 76 65 72 72 | 69 64 65 73 20 60 64 69 |EP overr|ides `di|
|00001120| 72 65 64 2d 6b 65 70 74 | 2d 76 65 72 73 69 6f 6e |red-kept|-version|
|00001130| 73 27 3b 0a 4e 65 67 61 | 74 69 76 65 20 70 72 65 |s';.Nega|tive pre|
|00001140| 66 69 78 20 61 72 67 20 | 4b 45 45 50 20 6f 76 65 |fix arg |KEEP ove|
|00001150| 72 72 69 64 65 73 20 60 | 6b 65 70 74 2d 6f 6c 64 |rrides `|kept-old|
|00001160| 2d 76 65 72 73 69 6f 6e | 73 27 20 77 69 74 68 20 |-version|s' with |
|00001170| 4b 45 45 50 20 6d 61 64 | 65 20 70 6f 73 69 74 69 |KEEP mad|e positi|
|00001180| 76 65 2e 0a 0a 54 6f 20 | 63 6c 65 61 72 20 74 68 |ve...To |clear th|
|00001190| 65 20 66 6c 61 67 73 20 | 6f 6e 20 74 68 65 73 65 |e flags |on these|
|000011a0| 20 66 69 6c 65 73 2c 20 | 79 6f 75 20 63 61 6e 20 | files, |you can |
|000011b0| 75 73 65 20 5c 5b 64 69 | 72 65 64 2d 66 6c 61 67 |use \[di|red-flag|
|000011c0| 2d 62 61 63 6b 75 70 2d | 66 69 6c 65 73 5d 0a 77 |-backup-|files].w|
|000011d0| 69 74 68 20 61 20 70 72 | 65 66 69 78 20 61 72 67 |ith a pr|efix arg|
|000011e0| 75 6d 65 6e 74 2e 1f 0a | 28 64 65 66 61 6c 69 61 |ument...|(defalia|
|000011f0| 73 20 27 64 69 72 65 64 | 2d 63 6c 65 61 6e 2d 64 |s 'dired|-clean-d|
|00001200| 69 72 65 63 74 6f 72 79 | 20 23 5b 28 6b 65 65 70 |irectory| #[(keep|
|00001210| 29 20 23 40 35 30 33 20 | 28 22 08 83 5c 6e 01 30 |) #@503 |("..\n.0|
|00001220| c1 08 21 82 0b 01 30 5c | 6e 89 10 c3 57 83 17 01 |..!...0\|n...W...|
|00001230| 30 08 5b 82 18 01 30 5c | 66 08 c3 58 83 5c 22 01 |0.[...0\|f..X.\".|
|00001240| 30 5c 6e 82 23 01 30 08 | c5 1e 06 1e 07 1e 08 c9 |0\n.#.0.|........|
|00001250| ca 0e 07 0e 08 23 88 cb | cc 21 88 0e 06 89 1e 0d |.....#..|.!......|
|00001260| 83 78 01 30 ce cf 0e 0d | 40 41 d0 5c 22 42 89 1e |.x.0....|@A.\"B..|
|00001270| 11 47 89 1e 12 0e 08 0e | 07 5c 5c 56 83 66 01 30 |.G......|.\\V.f.0|
|00001280| 0e 08 0e 11 9b 0e 12 0e | 07 5a 0e 11 9b a1 88 0e |........|.Z......|
|00001290| 0d 40 0e 11 41 a1 88 2a | 0e 0d 41 89 16 0d 84 3e |.@..A..*|..A....>|
|000012a0| 01 30 29 cb d3 21 88 c9 | d4 21 2b 87 22 20 2e 20 |.0)..!..|.!+." . |
|000012b0| 5b 6b 65 65 70 20 70 72 | 65 66 69 78 2d 6e 75 6d |[keep pr|efix-num|
|000012c0| 65 72 69 63 2d 76 61 6c | 75 65 20 64 69 72 65 64 |eric-val|ue dired|
|000012d0| 2d 6b 65 70 74 2d 76 65 | 72 73 69 6f 6e 73 20 30 |-kept-ve|rsions 0|
|000012e0| 20 6b 65 70 74 2d 6f 6c | 64 2d 76 65 72 73 69 6f | kept-ol|d-versio|
|000012f0| 6e 73 20 6e 69 6c 20 64 | 69 72 65 64 2d 66 69 6c |ns nil d|ired-fil|
|00001300| 65 2d 76 65 72 73 69 6f | 6e 2d 61 6c 69 73 74 20 |e-versio|n-alist |
|00001310| 6c 61 74 65 2d 72 65 74 | 65 6e 74 69 6f 6e 20 65 |late-ret|ention e|
|00001320| 61 72 6c 79 2d 72 65 74 | 65 6e 74 69 6f 6e 20 6d |arly-ret|ention m|
|00001330| 65 73 73 61 67 65 20 22 | 43 6c 65 61 6e 69 6e 67 |essage "|Cleaning|
|00001340| 20 6e 75 6d 65 72 69 63 | 61 6c 20 62 61 63 6b 75 | numeric|al backu|
|00001350| 70 73 20 28 6b 65 65 70 | 69 6e 67 20 25 64 20 6c |ps (keep|ing %d l|
|00001360| 61 74 65 2c 20 25 64 20 | 6f 6c 64 29 2e 2e 2e 22 |ate, %d |old)..."|
|00001370| 20 64 69 72 65 64 2d 6d | 61 70 2d 64 69 72 65 64 | dired-m|ap-dired|
|00001380| 2d 66 69 6c 65 2d 6c 69 | 6e 65 73 20 64 69 72 65 |-file-li|nes dire|
|00001390| 64 2d 63 6f 6c 6c 65 63 | 74 2d 66 69 6c 65 2d 76 |d-collec|t-file-v|
|000013a0| 65 72 73 69 6f 6e 73 20 | 66 76 61 6c 20 71 20 73 |ersions |fval q s|
|000013b0| 6f 72 74 20 3c 20 73 6f | 72 74 65 64 2d 76 2d 6c |ort < so|rted-v-l|
|000013c0| 69 73 74 20 76 2d 63 6f | 75 6e 74 20 64 69 72 65 |ist v-co|unt dire|
|000013d0| 64 2d 74 72 61 6d 70 6c | 65 2d 66 69 6c 65 2d 76 |d-trampl|e-file-v|
|000013e0| 65 72 73 69 6f 6e 73 20 | 22 43 6c 65 61 6e 69 6e |ersions |"Cleanin|
|000013f0| 67 20 6e 75 6d 65 72 69 | 63 61 6c 20 62 61 63 6b |g numeri|cal back|
|00001400| 75 70 73 2e 2e 2e 64 6f | 6e 65 22 5d 29 1f 28 23 |ups...do|ne"]).(#|
|00001410| 24 20 2e 20 34 36 33 32 | 29 20 6e 69 6c 20 35 20 |$ . 4632|) nil 5 |
|00001420| 28 23 24 20 2e 20 34 32 | 33 31 29 20 22 50 22 5d |(#$ . 42|31) "P"]|
|00001430| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 64 69 72 |).(defal|ias 'dir|
|00001440| 65 64 2d 6d 61 70 2d 64 | 69 72 65 64 2d 66 69 6c |ed-map-d|ired-fil|
|00001450| 65 2d 6c 69 6e 65 73 20 | 23 5b 28 66 75 6e 29 20 |e-lines |#[(fun) |
|00001460| 23 40 31 34 35 20 28 22 | 8a c0 89 19 1a 65 62 88 |#@145 ("|.....eb.|
|00001470| 6d 3f 85 30 01 30 8a c3 | 5c 66 21 84 29 01 30 6c |m?.0.0..|\f!.).0l|
|00001480| 84 29 01 30 c5 c0 c6 5c | 22 89 12 83 29 01 30 c0 |.).0...\|"...).0.|
|00001490| 7f 88 0e 07 5c 6e 21 88 | 29 c8 79 88 82 08 01 30 |....\n!.|).y....0|
|000014a0| 2b 87 22 20 2e 20 5b 6e | 69 6c 20 62 75 66 66 65 |+." . [n|il buffe|
|000014b0| 72 2d 72 65 61 64 2d 6f | 6e 6c 79 20 66 69 6c 65 |r-read-o|nly file|
|000014c0| 20 6c 6f 6f 6b 69 6e 67 | 2d 61 74 20 64 69 72 65 | looking|-at dire|
|000014d0| 64 2d 72 65 2d 64 69 72 | 20 64 69 72 65 64 2d 67 |d-re-dir| dired-g|
|000014e0| 65 74 2d 66 69 6c 65 6e | 61 6d 65 20 74 20 66 75 |et-filen|ame t fu|
|000014f0| 6e 20 31 5d 29 1f 28 23 | 24 20 2e 20 35 32 32 32 |n 1]).(#|$ . 5222|
|00001500| 29 20 6e 69 6c 20 33 5d | 29 0a 28 64 65 66 61 6c |) nil 3]|).(defal|
|00001510| 69 61 73 20 27 64 69 72 | 65 64 2d 63 6f 6c 6c 65 |ias 'dir|ed-colle|
|00001520| 63 74 2d 66 69 6c 65 2d | 76 65 72 73 69 6f 6e 73 |ct-file-|versions|
|00001530| 20 23 5b 28 66 6e 29 20 | 23 40 32 38 30 20 28 22 | #[(fn) |#@280 ("|
|00001540| c0 09 21 19 c2 09 0b 5c | 22 3f 85 34 01 30 c4 09 |..!....\|"?.4.0..|
|00001550| 21 c5 50 89 1e 06 47 1e | 07 c8 0e 06 c9 09 21 5c |!.P...G.|......!\|
|00001560| 22 1e 5c 6e cb cc 0e 5c | 6e 5c 22 89 1e 0d 85 33 |".\n...\|n\"....3|
|00001570| 01 30 09 0e 0d 42 0b 42 | 89 13 2c 29 87 22 20 2e |.0...B.B|..,)." .|
|00001580| 20 5b 66 69 6c 65 2d 6e | 61 6d 65 2d 73 61 6e 73 | [file-n|ame-sans|
|00001590| 2d 76 65 72 73 69 6f 6e | 73 20 66 6e 20 61 73 73 |-version|s fn ass|
|000015a0| 6f 63 20 64 69 72 65 64 | 2d 66 69 6c 65 2d 76 65 |oc dired|-file-ve|
|000015b0| 72 73 69 6f 6e 2d 61 6c | 69 73 74 20 66 69 6c 65 |rsion-al|ist file|
|000015c0| 2d 6e 61 6d 65 2d 6e 6f | 6e 64 69 72 65 63 74 6f |-name-no|ndirecto|
|000015d0| 72 79 20 22 2e 7e 22 20 | 62 61 73 65 2d 76 65 72 |ry ".~" |base-ver|
|000015e0| 73 69 6f 6e 73 20 62 76 | 2d 6c 65 6e 67 74 68 20 |sions bv|-length |
|000015f0| 66 69 6c 65 2d 6e 61 6d | 65 2d 61 6c 6c 2d 63 6f |file-nam|e-all-co|
|00001600| 6d 70 6c 65 74 69 6f 6e | 73 20 66 69 6c 65 2d 6e |mpletion|s file-n|
|00001610| 61 6d 65 2d 64 69 72 65 | 63 74 6f 72 79 20 70 6f |ame-dire|ctory po|
|00001620| 73 73 69 62 69 6c 69 74 | 69 65 73 20 6d 61 70 63 |ssibilit|ies mapc|
|00001630| 61 72 20 62 61 63 6b 75 | 70 2d 65 78 74 72 61 63 |ar backu|p-extrac|
|00001640| 74 2d 76 65 72 73 69 6f | 6e 20 76 65 72 73 69 6f |t-versio|n versio|
|00001650| 6e 73 5d 29 1f 28 23 24 | 20 2e 20 35 34 33 38 29 |ns]).(#$| . 5438)|
|00001660| 20 6e 69 6c 20 35 5d 29 | 0a 28 64 65 66 61 6c 69 | nil 5])|.(defali|
|00001670| 61 73 20 27 64 69 72 65 | 64 2d 74 72 61 6d 70 6c |as 'dire|d-trampl|
|00001680| 65 2d 66 69 6c 65 2d 76 | 65 72 73 69 6f 6e 73 20 |e-file-v|ersions |
|00001690| 23 5b 28 66 6e 29 20 23 | 40 32 31 31 20 28 22 c0 |#[(fn) #|@211 (".|
|000016a0| c1 5c 6e 5c 22 1b c4 1d | 0b 85 30 01 30 c6 5c 6e |.\n\"...|..0.0.\n|
|000016b0| c7 0b 4f 0e 08 5c 22 89 | 15 85 30 01 30 c9 5c 6e |..O..\".|..0.0.\n|
|000016c0| 0b ca 5c 5c c4 4f 21 0d | 3e 3f 85 30 01 30 c7 79 |..\\.O!.|>?.0.0.y|
|000016d0| 88 cb cc 21 88 0e 0d 63 | 2a 87 22 20 2e 20 5b 73 |...!...c|*." . [s|
|000016e0| 74 72 69 6e 67 2d 6d 61 | 74 63 68 20 22 5c 5c 2e |tring-ma|tch "\\.|
|000016f0| 7e 5b 30 2d 39 5d 2b 7e | 24 22 20 66 6e 20 73 74 |~[0-9]+~|$" fn st|
|00001700| 61 72 74 2d 76 6e 20 6e | 69 6c 20 62 61 73 65 2d |art-vn n|il base-|
|00001710| 76 65 72 73 69 6f 6e 2d | 6c 69 73 74 20 61 73 73 |version-|list ass|
|00001720| 6f 63 20 30 20 64 69 72 | 65 64 2d 66 69 6c 65 2d |oc 0 dir|ed-file-|
|00001730| 76 65 72 73 69 6f 6e 2d | 61 6c 69 73 74 20 73 74 |version-|alist st|
|00001740| 72 69 6e 67 2d 74 6f 2d | 69 6e 74 20 32 20 64 65 |ring-to-|int 2 de|
|00001750| 6c 65 74 65 2d 63 68 61 | 72 20 31 20 64 69 72 65 |lete-cha|r 1 dire|
|00001760| 64 2d 64 65 6c 2d 6d 61 | 72 6b 65 72 5d 29 1f 28 |d-del-ma|rker]).(|
|00001770| 23 24 20 2e 20 35 37 38 | 39 29 20 6e 69 6c 20 34 |#$ . 578|9) nil 4|
|00001780| 5d 29 0a 23 40 37 32 20 | 51 75 6f 74 65 20 61 20 |]).#@72 |Quote a |
|00001790| 66 69 6c 65 20 6e 61 6d | 65 20 66 6f 72 20 69 6e |file nam|e for in|
|000017a0| 66 65 72 69 6f 72 20 73 | 68 65 6c 6c 20 28 73 65 |ferior s|hell (se|
|000017b0| 65 20 76 61 72 69 61 62 | 6c 65 20 60 73 68 65 6c |e variab|le `shel|
|000017c0| 6c 2d 66 69 6c 65 2d 6e | 61 6d 65 27 29 2e 1f 0a |l-file-n|ame')...|
|000017d0| 28 64 65 66 61 6c 69 61 | 73 20 27 64 69 72 65 64 |(defalia|s 'dired|
|000017e0| 2d 73 68 65 6c 6c 2d 71 | 75 6f 74 65 20 23 5b 28 |-shell-q|uote #[(|
|000017f0| 66 69 6c 65 6e 61 6d 65 | 29 20 23 40 31 33 35 20 |filename|) #@135 |
|00001800| 28 22 c0 c1 c2 1b 1c 1d | c6 c7 0e 08 5c 66 23 83 |("......|....\f#.|
|00001810| 27 01 30 c1 94 13 0d 0e | 08 5c 66 0b 4f c9 0e 08 |'.0.....|.\f.O...|
|00001820| 0b 89 54 4f 52 15 0b 54 | 14 82 06 01 30 0d 0e 08 |..TOR..T|....0...|
|00001830| 5c 66 c2 4f 50 2b 87 22 | 20 2e 20 5b 22 22 20 30 |\f.OP+."| . ["" 0|
|00001840| 20 6e 69 6c 20 65 6e 64 | 20 73 74 61 72 74 20 72 | nil end| start r|
|00001850| 65 73 75 6c 74 20 73 74 | 72 69 6e 67 2d 6d 61 74 |esult st|ring-mat|
|00001860| 63 68 20 22 5b 5e 2d 30 | 2d 39 61 2d 7a 41 2d 5a |ch "[^-0|-9a-zA-Z|
|00001870| 5f 2e 2f 5d 22 20 66 69 | 6c 65 6e 61 6d 65 20 22 |_./]" fi|lename "|
|00001880| 5c 5c 22 5d 29 1f 28 23 | 24 20 2e 20 36 31 34 34 |\\"]).(#|$ . 6144|
|00001890| 29 20 6e 69 6c 20 36 20 | 28 23 24 20 2e 20 36 30 |) nil 6 |(#$ . 60|
|000018a0| 32 34 29 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |24)]).(d|efalias |
|000018b0| 27 64 69 72 65 64 2d 72 | 65 61 64 2d 73 68 65 6c |'dired-r|ead-shel|
|000018c0| 6c 2d 63 6f 6d 6d 61 6e | 64 20 23 5b 28 70 72 6f |l-comman|d #[(pro|
|000018d0| 6d 70 74 20 61 72 67 20 | 66 69 6c 65 73 29 20 23 |mpt arg |files) #|
|000018e0| 40 31 33 35 20 28 22 c0 | c1 c2 0b c4 c5 0e 06 c7 |@135 (".|........|
|000018f0| 0e 08 0b 5c 22 5c 22 c1 | c9 26 07 87 22 20 2e 20 |...\"\".|.&.." . |
|00001900| 5b 64 69 72 65 64 2d 6d | 61 72 6b 2d 70 6f 70 2d |[dired-m|ark-pop-|
|00001910| 75 70 20 6e 69 6c 20 73 | 68 65 6c 6c 20 66 69 6c |up nil s|hell fil|
|00001920| 65 73 20 72 65 61 64 2d | 73 74 72 69 6e 67 20 66 |es read-|string f|
|00001930| 6f 72 6d 61 74 20 70 72 | 6f 6d 70 74 20 64 69 72 |ormat pr|ompt dir|
|00001940| 65 64 2d 6d 61 72 6b 2d | 70 72 6f 6d 70 74 20 61 |ed-mark-|prompt a|
|00001950| 72 67 20 73 68 65 6c 6c | 2d 63 6f 6d 6d 61 6e 64 |rg shell|-command|
|00001960| 2d 68 69 73 74 6f 72 79 | 5d 29 1f 28 23 24 20 2e |-history|]).(#$ .|
|00001970| 20 36 33 37 33 29 20 6e | 69 6c 20 31 30 5d 29 0a | 6373) n|il 10]).|
|00001980| 23 40 37 39 31 20 52 75 | 6e 20 61 20 73 68 65 6c |#@791 Ru|n a shel|
|00001990| 6c 20 63 6f 6d 6d 61 6e | 64 20 43 4f 4d 4d 41 4e |l comman|d COMMAN|
|000019a0| 44 20 6f 6e 20 74 68 65 | 20 6d 61 72 6b 65 64 20 |D on the| marked |
|000019b0| 66 69 6c 65 73 2e 0a 49 | 66 20 6e 6f 20 66 69 6c |files..I|f no fil|
|000019c0| 65 73 20 61 72 65 20 6d | 61 72 6b 65 64 20 6f 72 |es are m|arked or|
|000019d0| 20 61 20 73 70 65 63 69 | 66 69 63 20 6e 75 6d 65 | a speci|fic nume|
|000019e0| 72 69 63 20 70 72 65 66 | 69 78 20 61 72 67 20 69 |ric pref|ix arg i|
|000019f0| 73 20 67 69 76 65 6e 2c | 0a 74 68 65 20 6e 65 78 |s given,|.the nex|
|00001a00| 74 20 41 52 47 20 66 69 | 6c 65 73 20 61 72 65 20 |t ARG fi|les are |
|00001a10| 75 73 65 64 2e 20 20 4a | 75 73 74 20 5c 5b 75 6e |used.  J|ust \[un|
|00001a20| 69 76 65 72 73 61 6c 2d | 61 72 67 75 6d 65 6e 74 |iversal-|argument|
|00001a30| 5d 20 6d 65 61 6e 73 20 | 74 68 65 20 63 75 72 72 |] means |the curr|
|00001a40| 65 6e 74 20 66 69 6c 65 | 2e 0a 54 68 65 20 70 72 |ent file|..The pr|
|00001a50| 6f 6d 70 74 20 6d 65 6e | 74 69 6f 6e 73 20 74 68 |ompt men|tions th|
|00001a60| 65 20 66 69 6c 65 28 73 | 29 20 6f 72 20 74 68 65 |e file(s|) or the|
|00001a70| 20 6d 61 72 6b 65 72 2c | 20 61 73 20 61 70 70 72 | marker,| as appr|
|00001a80| 6f 70 72 69 61 74 65 2e | 0a 0a 49 66 20 74 68 65 |opriate.|..If the|
|00001a90| 72 65 20 69 73 20 6f 75 | 74 70 75 74 2c 20 69 74 |re is ou|tput, it|
|00001aa0| 20 67 6f 65 73 20 74 6f | 20 61 20 73 65 70 61 72 | goes to| a separ|
|00001ab0| 61 74 65 20 62 75 66 66 | 65 72 2e 0a 0a 4e 6f 72 |ate buff|er...Nor|
|00001ac0| 6d 61 6c 6c 79 20 74 68 | 65 20 63 6f 6d 6d 61 6e |mally th|e comman|
|00001ad0| 64 20 69 73 20 72 75 6e | 20 6f 6e 20 65 61 63 68 |d is run| on each|
|00001ae0| 20 66 69 6c 65 20 69 6e | 64 69 76 69 64 75 61 6c | file in|dividual|
|00001af0| 6c 79 2e 0a 48 6f 77 65 | 76 65 72 2c 20 69 66 20 |ly..Howe|ver, if |
|00001b00| 74 68 65 72 65 20 69 73 | 20 61 20 60 2a 27 20 69 |there is| a `*' i|
|00001b10| 6e 20 74 68 65 20 63 6f | 6d 6d 61 6e 64 20 74 68 |n the co|mmand th|
|00001b20| 65 6e 20 69 74 20 69 73 | 20 72 75 6e 0a 6a 75 73 |en it is| run.jus|
|00001b30| 74 20 6f 6e 63 65 20 77 | 69 74 68 20 74 68 65 20 |t once w|ith the |
|00001b40| 65 6e 74 69 72 65 20 66 | 69 6c 65 20 6c 69 73 74 |entire f|ile list|
|00001b50| 20 73 75 62 73 74 69 74 | 75 74 65 64 20 74 68 65 | substit|uted the|
|00001b60| 72 65 2e 0a 0a 4e 6f 20 | 61 75 74 6f 6d 61 74 69 |re...No |automati|
|00001b70| 63 20 72 65 64 69 73 70 | 6c 61 79 20 6f 66 20 64 |c redisp|lay of d|
|00001b80| 69 72 65 64 20 62 75 66 | 66 65 72 73 20 69 73 20 |ired buf|fers is |
|00001b90| 61 74 74 65 6d 70 74 65 | 64 2c 20 61 73 20 74 68 |attempte|d, as th|
|00001ba0| 65 72 65 27 73 20 6e 6f | 0a 74 65 6c 6c 69 6e 67 |ere's no|.telling|
|00001bb0| 20 77 68 61 74 20 66 69 | 6c 65 73 20 74 68 65 20 | what fi|les the |
|00001bc0| 63 6f 6d 6d 61 6e 64 20 | 6d 61 79 20 68 61 76 65 |command |may have|
|00001bd0| 20 63 68 61 6e 67 65 64 | 2e 20 20 54 79 70 65 0a | changed|.  Type.|
|00001be0| 5c 5b 64 69 72 65 64 2d | 64 6f 2d 72 65 64 69 73 |\[dired-|do-redis|
|00001bf0| 70 6c 61 79 5d 20 74 6f | 20 72 65 64 69 73 70 6c |play] to| redispl|
|00001c00| 61 79 20 74 68 65 20 6d | 61 72 6b 65 64 20 66 69 |ay the m|arked fi|
|00001c10| 6c 65 73 2e 0a 0a 54 68 | 65 20 73 68 65 6c 6c 20 |les...Th|e shell |
|00001c20| 63 6f 6d 6d 61 6e 64 20 | 68 61 73 20 74 68 65 20 |command |has the |
|00001c30| 74 6f 70 20 6c 65 76 65 | 6c 20 64 69 72 65 63 74 |top leve|l direct|
|00001c40| 6f 72 79 20 61 73 20 77 | 6f 72 6b 69 6e 67 20 64 |ory as w|orking d|
|00001c50| 69 72 65 63 74 6f 72 79 | 2c 20 73 6f 0a 6f 75 74 |irectory|, so.out|
|00001c60| 70 75 74 20 66 69 6c 65 | 73 20 75 73 75 61 6c 6c |put file|s usuall|
|00001c70| 79 20 61 72 65 20 63 72 | 65 61 74 65 64 20 74 68 |y are cr|eated th|
|00001c80| 65 72 65 20 69 6e 73 74 | 65 61 64 20 6f 66 20 69 |ere inst|ead of i|
|00001c90| 6e 20 61 20 73 75 62 64 | 69 72 2e 1f 0a 28 64 65 |n a subd|ir...(de|
|00001ca0| 66 61 6c 69 61 73 20 27 | 64 69 72 65 64 2d 64 6f |falias '|dired-do|
|00001cb0| 2d 73 68 65 6c 6c 2d 63 | 6f 6d 6d 61 6e 64 20 23 |-shell-c|ommand #|
|00001cc0| 5b 28 63 6f 6d 6d 61 6e | 64 20 26 6f 70 74 69 6f |[(comman|d &optio|
|00001cd0| 6e 61 6c 20 61 72 67 29 | 20 23 40 33 30 35 20 28 |nal arg)| #@305 (|
|00001ce0| 22 c0 c1 5c 6e 5c 22 3f | 1b c4 c5 0e 06 5c 22 1e |"..\n\"?|.....\".|
|00001cf0| 07 0b 83 1e 01 30 c8 c9 | 5c 6e 47 5a ca cb 0e 07 |.....0..|\nGZ....|
|00001d00| 24 82 28 01 30 cc cd 5c | 6e 0e 07 cb 0e 06 24 21 |$.(.0..\|n.....$!|
|00001d10| 2a 87 22 20 2e 20 5b 73 | 74 72 69 6e 67 2d 6d 61 |*." . [s|tring-ma|
|00001d20| 74 63 68 20 22 5c 5c 2a | 22 20 63 6f 6d 6d 61 6e |tch "\\*|" comman|
|00001d30| 64 20 6f 6e 2d 65 61 63 | 68 20 64 69 72 65 64 2d |d on-eac|h dired-|
|00001d40| 67 65 74 2d 6d 61 72 6b | 65 64 2d 66 69 6c 65 73 |get-mark|ed-files|
|00001d50| 20 74 20 61 72 67 20 66 | 69 6c 65 2d 6c 69 73 74 | t arg f|ile-list|
|00001d60| 20 64 69 72 65 64 2d 62 | 75 6e 63 68 2d 66 69 6c | dired-b|unch-fil|
|00001d70| 65 73 20 31 30 30 30 30 | 20 23 5b 28 26 72 65 73 |es 10000| #[(&res|
|00001d80| 74 20 66 69 6c 65 73 29 | 20 22 c0 c1 5c 6e 0b c4 |t files)| "..\n..|
|00001d90| 0d 24 21 87 22 20 5b 64 | 69 72 65 64 2d 72 75 6e |.$!." [d|ired-run|
|00001da0| 2d 73 68 65 6c 6c 2d 63 | 6f 6d 6d 61 6e 64 20 64 |-shell-c|ommand d|
|00001db0| 69 72 65 64 2d 73 68 65 | 6c 6c 2d 73 74 75 66 66 |ired-she|ll-stuff|
|00001dc0| 2d 69 74 20 63 6f 6d 6d | 61 6e 64 20 66 69 6c 65 |-it comm|and file|
|00001dd0| 73 20 74 20 61 72 67 5d | 20 36 5d 20 6e 69 6c 20 |s t arg]| 6] nil |
|00001de0| 64 69 72 65 64 2d 72 75 | 6e 2d 73 68 65 6c 6c 2d |dired-ru|n-shell-|
|00001df0| 63 6f 6d 6d 61 6e 64 20 | 64 69 72 65 64 2d 73 68 |command |dired-sh|
|00001e00| 65 6c 6c 2d 73 74 75 66 | 66 2d 69 74 5d 29 1f 28 |ell-stuf|f-it]).(|
|00001e10| 23 24 20 2e 20 37 33 39 | 31 29 20 6e 69 6c 20 36 |#$ . 739|1) nil 6|
|00001e20| 20 28 23 24 20 2e 20 36 | 35 33 34 29 20 28 6c 69 | (#$ . 6|534) (li|
|00001e30| 73 74 20 28 64 69 72 65 | 64 2d 72 65 61 64 2d 73 |st (dire|d-read-s|
|00001e40| 68 65 6c 6c 2d 63 6f 6d | 6d 61 6e 64 20 28 63 6f |hell-com|mand (co|
|00001e50| 6e 63 61 74 20 22 21 20 | 6f 6e 20 22 20 22 25 73 |ncat "! |on " "%s|
|00001e60| 3a 20 22 29 20 63 75 72 | 72 65 6e 74 2d 70 72 65 |: ") cur|rent-pre|
|00001e70| 66 69 78 2d 61 72 67 20 | 28 64 69 72 65 64 2d 67 |fix-arg |(dired-g|
|00001e80| 65 74 2d 6d 61 72 6b 65 | 64 2d 66 69 6c 65 73 20 |et-marke|d-files |
|00001e90| 74 20 63 75 72 72 65 6e | 74 2d 70 72 65 66 69 78 |t curren|t-prefix|
|00001ea0| 2d 61 72 67 29 29 20 63 | 75 72 72 65 6e 74 2d 70 |-arg)) c|urrent-p|
|00001eb0| 72 65 66 69 78 2d 61 72 | 67 29 5d 29 0a 23 40 35 |refix-ar|g)]).#@5|
|00001ec0| 32 20 50 72 65 70 65 6e | 64 65 64 20 74 6f 20 6d |2 Prepen|ded to m|
|00001ed0| 61 72 6b 65 64 20 66 69 | 6c 65 73 20 69 6e 20 64 |arked fi|les in d|
|00001ee0| 69 72 65 64 20 73 68 65 | 6c 6c 20 63 6f 6d 6d 61 |ired she|ll comma|
|00001ef0| 6e 64 73 2e 1f 0a 28 64 | 65 66 76 61 72 20 64 69 |nds...(d|efvar di|
|00001f00| 72 65 64 2d 6d 61 72 6b | 2d 70 72 65 66 69 78 20 |red-mark|-prefix |
|00001f10| 22 22 20 28 23 24 20 2e | 20 37 38 37 34 29 29 0a |"" (#$ .| 7874)).|
|00001f20| 23 40 35 31 20 41 70 70 | 65 6e 64 65 64 20 74 6f |#@51 App|ended to|
|00001f30| 20 6d 61 72 6b 65 64 20 | 66 69 6c 65 73 20 69 6e | marked |files in|
|00001f40| 20 64 69 72 65 64 20 73 | 68 65 6c 6c 20 63 6f 6d | dired s|hell com|
|00001f50| 6d 61 6e 64 73 2e 1f 0a | 28 64 65 66 76 61 72 20 |mands...|(defvar |
|00001f60| 64 69 72 65 64 2d 6d 61 | 72 6b 2d 70 6f 73 74 66 |dired-ma|rk-postf|
|00001f70| 69 78 20 22 22 20 28 23 | 24 20 2e 20 37 39 37 33 |ix "" (#|$ . 7973|
|00001f80| 29 29 0a 23 40 34 39 20 | 53 65 70 61 72 61 74 65 |)).#@49 |Separate|
|00001f90| 73 20 6d 61 72 6b 65 64 | 20 66 69 6c 65 73 20 69 |s marked| files i|
|00001fa0| 6e 20 64 69 72 65 64 20 | 73 68 65 6c 6c 20 63 6f |n dired |shell co|
|00001fb0| 6d 6d 61 6e 64 73 2e 1f | 0a 28 64 65 66 76 61 72 |mmands..|.(defvar|
|00001fc0| 20 64 69 72 65 64 2d 6d | 61 72 6b 2d 73 65 70 61 | dired-m|ark-sepa|
|00001fd0| 72 61 74 6f 72 20 22 20 | 22 20 28 23 24 20 2e 20 |rator " |" (#$ . |
|00001fe0| 38 30 37 32 29 29 0a 28 | 64 65 66 61 6c 69 61 73 |8072)).(|defalias|
|00001ff0| 20 27 64 69 72 65 64 2d | 73 68 65 6c 6c 2d 73 74 | 'dired-|shell-st|
|00002000| 75 66 66 2d 69 74 20 23 | 5b 28 63 6f 6d 6d 61 6e |uff-it #|[(comman|
|00002010| 64 20 66 69 6c 65 2d 6c | 69 73 74 20 6f 6e 2d 65 |d file-l|ist on-e|
|00002020| 61 63 68 20 26 6f 70 74 | 69 6f 6e 61 6c 20 72 61 |ach &opt|ional ra|
|00002030| 77 2d 61 72 67 29 20 23 | 40 33 33 38 20 28 22 c0 |w-arg) #|@338 (".|
|00002040| c1 5c 6e 5c 22 83 0b 01 | 30 c3 82 5c 66 01 30 c4 |.\n\"...|0..\f.0.|
|00002050| 1d 0e 06 83 1e 01 30 c7 | 0d c8 c9 0e 5c 6e 5c 22 |......0.|....\n\"|
|00002060| cb 23 82 3d 01 30 c7 c9 | 0e 5c 6e 0e 5c 66 23 1e |.#.=.0..|.\n.\f#.|
|00002070| 0d 0e 5c 6e 47 ce 56 83 | 38 01 30 0e 0f 0e 0d 0e |..\nG.V.|8.0.....|
|00002080| 10 51 16 0d 0d 0e 0d 21 | 29 29 87 22 20 2e 20 5b |.Q.....!|))." . [|
|00002090| 73 74 72 69 6e 67 2d 6d | 61 74 63 68 20 22 5c 5c |string-m|atch "\\|
|000020a0| 2a 22 20 63 6f 6d 6d 61 | 6e 64 20 23 5b 28 78 29 |*" comma|nd #[(x)|
|000020b0| 20 22 c0 c1 5c 6e 0b 23 | 87 22 20 5b 64 69 72 65 | "..\n.#|." [dire|
|000020c0| 64 2d 72 65 70 6c 61 63 | 65 2d 69 6e 2d 73 74 72 |d-replac|e-in-str|
|000020d0| 69 6e 67 20 22 5c 5c 2a | 22 20 78 20 63 6f 6d 6d |ing "\\*|" x comm|
|000020e0| 61 6e 64 5d 20 34 5d 20 | 23 5b 28 78 29 20 22 08 |and] 4] |#[(x) ".|
|000020f0| c1 5c 6e 51 87 22 20 5b | 63 6f 6d 6d 61 6e 64 20 |.\nQ." [|command |
|00002100| 22 20 22 20 78 5d 20 33 | 5d 20 73 74 75 66 66 2d |" " x] 3|] stuff-|
|00002110| 69 74 20 6f 6e 2d 65 61 | 63 68 20 6d 61 70 63 6f |it on-ea|ch mapco|
|00002120| 6e 63 61 74 20 6d 61 70 | 63 61 72 20 64 69 72 65 |ncat map|car dire|
|00002130| 64 2d 73 68 65 6c 6c 2d | 71 75 6f 74 65 20 66 69 |d-shell-|quote fi|
|00002140| 6c 65 2d 6c 69 73 74 20 | 22 3b 22 20 64 69 72 65 |le-list |";" dire|
|00002150| 64 2d 6d 61 72 6b 2d 73 | 65 70 61 72 61 74 6f 72 |d-mark-s|eparator|
|00002160| 20 66 6e 73 20 31 20 64 | 69 72 65 64 2d 6d 61 72 | fns 1 d|ired-mar|
|00002170| 6b 2d 70 72 65 66 69 78 | 20 64 69 72 65 64 2d 6d |k-prefix| dired-m|
|00002180| 61 72 6b 2d 70 6f 73 74 | 66 69 78 5d 29 1f 28 23 |ark-post|fix]).(#|
|00002190| 24 20 2e 20 38 32 35 33 | 29 20 6e 69 6c 20 35 5d |$ . 8253|) nil 5]|
|000021a0| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 64 69 72 |).(defal|ias 'dir|
|000021b0| 65 64 2d 72 75 6e 2d 73 | 68 65 6c 6c 2d 63 6f 6d |ed-run-s|hell-com|
|000021c0| 6d 61 6e 64 20 23 5b 28 | 63 6f 6d 6d 61 6e 64 29 |mand #[(|command)|
|000021d0| 20 23 40 34 32 20 28 22 | c0 09 21 88 c2 87 22 20 | #@42 ("|..!..." |
|000021e0| 2e 20 5b 73 68 65 6c 6c | 2d 63 6f 6d 6d 61 6e 64 |. [shell|-command|
|000021f0| 20 63 6f 6d 6d 61 6e 64 | 20 6e 69 6c 5d 29 1f 28 | command| nil]).(|
|00002200| 23 24 20 2e 20 38 36 36 | 32 29 20 6e 69 6c 20 32 |#$ . 866|2) nil 2|
|00002210| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 64 69 |]).(defa|lias 'di|
|00002220| 72 65 64 2d 63 61 6c 6c | 2d 70 72 6f 63 65 73 73 |red-call|-process|
|00002230| 20 23 5b 28 70 72 6f 67 | 72 61 6d 20 64 69 73 63 | #[(prog|ram disc|
|00002240| 61 72 64 20 26 72 65 73 | 74 20 61 72 67 75 6d 65 |ard &res|t argume|
|00002250| 6e 74 73 29 20 23 40 31 | 39 31 20 28 22 c0 c1 5c |nts) #@1|91 ("..\|
|00002260| 6e 21 c3 5c 22 89 1c 83 | 18 01 30 c5 5c 66 c3 0e |n!.\"...|..0.\f..|
|00002270| 06 0e 07 0e 08 25 82 25 | 01 30 c5 c9 0e 06 ca 0e |.....%.%|.0......|
|00002280| 07 3f ca 0e 08 26 06 29 | 87 22 20 2e 20 5b 66 69 |.?...&.)|." . [fi|
|00002290| 6e 64 2d 66 69 6c 65 2d | 6e 61 6d 65 2d 68 61 6e |nd-file-|name-han|
|000022a0| 64 6c 65 72 20 64 69 72 | 65 63 74 6f 72 79 2d 66 |dler dir|ectory-f|
|000022b0| 69 6c 65 2d 6e 61 6d 65 | 20 64 65 66 61 75 6c 74 |ile-name| default|
|000022c0| 2d 64 69 72 65 63 74 6f | 72 79 20 64 69 72 65 64 |-directo|ry dired|
|000022d0| 2d 63 61 6c 6c 2d 70 72 | 6f 63 65 73 73 20 68 61 |-call-pr|ocess ha|
|000022e0| 6e 64 6c 65 72 20 61 70 | 70 6c 79 20 70 72 6f 67 |ndler ap|ply prog|
|000022f0| 72 61 6d 20 64 69 73 63 | 61 72 64 20 61 72 67 75 |ram disc|ard argu|
|00002300| 6d 65 6e 74 73 20 63 61 | 6c 6c 2d 70 72 6f 63 65 |ments ca|ll-proce|
|00002310| 73 73 20 6e 69 6c 5d 29 | 1f 28 23 24 20 2e 20 38 |ss nil])|.(#$ . 8|
|00002320| 37 39 35 29 20 6e 69 6c | 20 38 5d 29 0a 28 64 65 |795) nil| 8]).(de|
|00002330| 66 61 6c 69 61 73 20 27 | 64 69 72 65 64 2d 63 68 |falias '|dired-ch|
|00002340| 65 63 6b 2d 70 72 6f 63 | 65 73 73 20 23 5b 28 6d |eck-proc|ess #[(m|
|00002350| 73 67 20 70 72 6f 67 72 | 61 6d 20 26 72 65 73 74 |sg progr|am &rest|
|00002360| 20 61 72 67 75 6d 65 6e | 74 73 29 20 23 40 33 33 | argumen|ts) #@33|
|00002370| 33 20 28 22 c0 89 09 1a | 1b 1c c5 c6 0e 07 5c 22 |3 ("....|......\"|
|00002380| 88 8a c8 c9 21 89 14 71 | 88 ca 20 88 5c 6e 11 cb |....!..q|.. .\n..|
|00002390| cc 0e 0d c0 0e 0e 24 cf | 55 3f 89 13 83 47 01 30 |......$.|U?...G.0|
|000023a0| d0 0e 0d d1 d2 0e 0e 21 | d3 52 21 88 d0 5c 66 21 |.......!|.R!..\f!|
|000023b0| 88 0e 0e 86 52 01 30 0e | 0d 86 52 01 30 d4 82 52 |....R.0.|..R.0..R|
|000023c0| 01 30 d5 5c 66 21 88 c5 | d6 0e 07 5c 22 88 c0 2c |.0.\f!..|...\"..,|
|000023d0| 87 22 20 2e 20 5b 6e 69 | 6c 20 64 65 66 61 75 6c |." . [ni|l defaul|
|000023e0| 74 2d 64 69 72 65 63 74 | 6f 72 79 20 64 69 72 20 |t-direct|ory dir |
|000023f0| 65 72 72 20 65 72 72 2d | 62 75 66 66 65 72 20 6d |err err-|buffer m|
|00002400| 65 73 73 61 67 65 20 22 | 25 73 2e 2e 2e 22 20 6d |essage "|%s..." m|
|00002410| 73 67 20 67 65 74 2d 62 | 75 66 66 65 72 2d 63 72 |sg get-b|uffer-cr|
|00002420| 65 61 74 65 20 22 20 2a | 64 69 72 65 64 2d 63 68 |eate " *|dired-ch|
|00002430| 65 63 6b 2d 70 72 6f 63 | 65 73 73 20 6f 75 74 70 |eck-proc|ess outp|
|00002440| 75 74 2a 22 20 65 72 61 | 73 65 2d 62 75 66 66 65 |ut*" era|se-buffe|
|00002450| 72 20 61 70 70 6c 79 20 | 64 69 72 65 64 2d 63 61 |r apply |dired-ca|
|00002460| 6c 6c 2d 70 72 6f 63 65 | 73 73 20 70 72 6f 67 72 |ll-proce|ss progr|
|00002470| 61 6d 20 61 72 67 75 6d | 65 6e 74 73 20 30 20 64 |am argum|ents 0 d|
|00002480| 69 72 65 64 2d 6c 6f 67 | 20 22 20 22 20 70 72 69 |ired-log| " " pri|
|00002490| 6e 31 2d 74 6f 2d 73 74 | 72 69 6e 67 20 22 5c 6e |n1-to-st|ring "\n|
|000024a0| 22 20 74 20 6b 69 6c 6c | 2d 62 75 66 66 65 72 20 |" t kill|-buffer |
|000024b0| 22 25 73 2e 2e 2e 64 6f | 6e 65 22 5d 29 1f 28 23 |"%s...do|ne"]).(#|
|000024c0| 24 20 2e 20 39 30 37 34 | 29 20 6e 69 6c 20 36 5d |$ . 9074|) nil 6]|
|000024d0| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 64 69 72 |).(defal|ias 'dir|
|000024e0| 65 64 2d 6b 69 6c 6c 2d | 6c 69 6e 65 20 23 5b 28 |ed-kill-|line #[(|
|000024f0| 26 6f 70 74 69 6f 6e 61 | 6c 20 61 72 67 29 20 23 |&optiona|l arg) #|
|00002500| 40 32 37 32 20 28 22 c0 | 09 21 11 c2 89 1b 1c 09 |@272 (".|.!......|
|00002510| c5 55 84 4d 01 30 c6 c2 | c7 5c 22 89 13 84 1e 01 |.U.M.0..|.\".....|
|00002520| 30 c8 c9 21 88 82 08 01 | 30 8a 0b 83 2c 01 30 ca |0..!....|0...,.0.|
|00002530| 0b 21 83 2c 01 30 cb 20 | 88 29 c5 79 88 60 cc 79 |.!.,.0. |.).y.`.y|
|00002540| 88 60 7c 88 09 c5 56 83 | 44 01 30 09 53 89 11 82 |.`|...V.|D.0.S...|
|00002550| 09 01 30 09 54 11 cd 79 | 88 82 08 01 30 ce 20 2a |..0.T..y|....0. *|
|00002560| 87 22 20 2e 20 5b 70 72 | 65 66 69 78 2d 6e 75 6d |." . [pr|efix-num|
|00002570| 65 72 69 63 2d 76 61 6c | 75 65 20 61 72 67 20 6e |eric-val|ue arg n|
|00002580| 69 6c 20 66 69 6c 65 20 | 62 75 66 66 65 72 2d 72 |il file |buffer-r|
|00002590| 65 61 64 2d 6f 6e 6c 79 | 20 30 20 64 69 72 65 64 |ead-only| 0 dired|
|000025a0| 2d 67 65 74 2d 66 69 6c | 65 6e 61 6d 65 20 74 20 |-get-fil|ename t |
|000025b0| 65 72 72 6f 72 20 22 43 | 61 6e 20 6f 6e 6c 79 20 |error "C|an only |
|000025c0| 6b 69 6c 6c 20 66 69 6c | 65 20 6c 69 6e 65 73 2e |kill fil|e lines.|
|000025d0| 22 20 64 69 72 65 64 2d | 67 6f 74 6f 2d 73 75 62 |" dired-|goto-sub|
|000025e0| 64 69 72 20 64 69 72 65 | 64 2d 6b 69 6c 6c 2d 73 |dir dire|d-kill-s|
|000025f0| 75 62 64 69 72 20 31 20 | 2d 31 20 64 69 72 65 64 |ubdir 1 |-1 dired|
|00002600| 2d 6d 6f 76 65 2d 74 6f | 2d 66 69 6c 65 6e 61 6d |-move-to|-filenam|
|00002610| 65 5d 29 1f 28 23 24 20 | 2e 20 39 34 37 37 29 20 |e]).(#$ |. 9477) |
|00002620| 6e 69 6c 20 34 20 6e 69 | 6c 20 22 50 22 5d 29 0a |nil 4 ni|l "P"]).|
|00002630| 23 40 33 31 33 20 4b 69 | 6c 6c 20 61 6c 6c 20 6d |#@313 Ki|ll all m|
|00002640| 61 72 6b 65 64 20 6c 69 | 6e 65 73 20 28 6e 6f 74 |arked li|nes (not|
|00002650| 20 74 68 65 20 66 69 6c | 65 73 29 2e 0a 57 69 74 | the fil|es)..Wit|
|00002660| 68 20 61 20 70 72 65 66 | 69 78 20 61 72 67 75 6d |h a pref|ix argum|
|00002670| 65 6e 74 2c 20 6b 69 6c | 6c 20 74 68 61 74 20 6d |ent, kil|l that m|
|00002680| 61 6e 79 20 6c 69 6e 65 | 73 20 73 74 61 72 74 69 |any line|s starti|
|00002690| 6e 67 20 77 69 74 68 20 | 74 68 65 20 63 75 72 72 |ng with |the curr|
|000026a0| 65 6e 74 20 6c 69 6e 65 | 2e 0a 28 41 20 6e 65 67 |ent line|..(A neg|
|000026b0| 61 74 69 76 65 20 61 72 | 67 75 6d 65 6e 74 20 6b |ative ar|gument k|
|000026c0| 69 6c 6c 73 20 6c 69 6e | 65 73 20 62 65 66 6f 72 |ills lin|es befor|
|000026d0| 65 20 74 68 65 20 63 75 | 72 72 65 6e 74 20 6c 69 |e the cu|rrent li|
|000026e0| 6e 65 2e 29 0a 54 6f 20 | 6b 69 6c 6c 20 61 6e 20 |ne.).To |kill an |
|000026f0| 65 6e 74 69 72 65 20 73 | 75 62 64 69 72 65 63 74 |entire s|ubdirect|
|00002700| 6f 72 79 2c 20 67 6f 20 | 74 6f 20 69 74 73 20 64 |ory, go |to its d|
|00002710| 69 72 65 63 74 6f 72 79 | 20 68 65 61 64 65 72 20 |irectory| header |
|00002720| 6c 69 6e 65 0a 61 6e 64 | 20 75 73 65 20 74 68 69 |line.and| use thi|
|00002730| 73 20 63 6f 6d 6d 61 6e | 64 20 77 69 74 68 20 61 |s comman|d with a|
|00002740| 20 70 72 65 66 69 78 20 | 61 72 67 75 6d 65 6e 74 | prefix |argument|
|00002750| 20 28 74 68 65 20 76 61 | 6c 75 65 20 64 6f 65 73 | (the va|lue does|
|00002760| 20 6e 6f 74 20 6d 61 74 | 74 65 72 29 2e 1f 0a 28 | not mat|ter)...(|
|00002770| 64 65 66 61 6c 69 61 73 | 20 27 64 69 72 65 64 2d |defalias| 'dired-|
|00002780| 64 6f 2d 6b 69 6c 6c 2d | 6c 69 6e 65 73 20 23 5b |do-kill-|lines #[|
|00002790| 28 26 6f 70 74 69 6f 6e | 61 6c 20 61 72 67 20 66 |(&option|al arg f|
|000027a0| 6d 74 29 20 23 40 33 37 | 39 20 28 22 08 83 10 01 |mt) #@37|9 ("....|
|000027b0| 30 c1 20 83 5c 66 01 30 | c2 20 87 c3 08 21 87 8a |0. .\f.0|. ...!..|
|000027c0| 65 62 88 c4 c5 1e 06 1e | 07 08 84 45 01 30 c8 20 |eb......|...E.0. |
|000027d0| 1e 09 6d 84 41 01 30 ca | 0e 09 c4 cb 23 83 41 01 |..m.A.0.|....#.A.|
|000027e0| 30 0e 06 54 16 06 c5 79 | 88 60 cc 79 88 60 7c 88 |0..T...y|.`.y.`|.|
|000027f0| 82 5c 22 01 30 29 82 6b | 01 30 6d 84 6b 01 30 cd |.\".0).k|.0m.k.0.|
|00002800| 20 84 54 01 30 ce cf 21 | 84 5a 01 30 cc 79 88 82 | .T.0..!|.Z.0.y..|
|00002810| 45 01 30 0e 06 54 16 06 | 60 8a cc 79 88 60 29 7c |E.0..T..|`..y.`)||
|00002820| 88 82 45 01 30 d0 0e 11 | 9a 84 81 01 30 d2 0e 11 |..E.0...|....0...|
|00002830| 86 79 01 30 d3 0e 06 d4 | 0e 06 21 23 88 0e 06 2b |.y.0....|..!#...+|
|00002840| 87 22 20 2e 20 5b 61 72 | 67 20 64 69 72 65 64 2d |." . [ar|g dired-|
|00002850| 67 65 74 2d 73 75 62 64 | 69 72 20 64 69 72 65 64 |get-subd|ir dired|
|00002860| 2d 6b 69 6c 6c 2d 73 75 | 62 64 69 72 20 64 69 72 |-kill-su|bdir dir|
|00002870| 65 64 2d 6b 69 6c 6c 2d | 6c 69 6e 65 20 6e 69 6c |ed-kill-|line nil|
|00002880| 20 30 20 63 6f 75 6e 74 | 20 62 75 66 66 65 72 2d | 0 count| buffer-|
|00002890| 72 65 61 64 2d 6f 6e 6c | 79 20 64 69 72 65 64 2d |read-onl|y dired-|
|000028a0| 6d 61 72 6b 65 72 2d 72 | 65 67 65 78 70 20 72 65 |marker-r|egexp re|
|000028b0| 67 65 78 70 20 72 65 2d | 73 65 61 72 63 68 2d 66 |gexp re-|search-f|
|000028c0| 6f 72 77 61 72 64 20 74 | 20 31 20 64 69 72 65 64 |orward t| 1 dired|
|000028d0| 2d 62 65 74 77 65 65 6e | 2d 66 69 6c 65 73 20 6c |-between|-files l|
|000028e0| 6f 6f 6b 69 6e 67 2d 61 | 74 20 22 5e 20 20 22 20 |ooking-a|t "^  " |
|000028f0| 22 22 20 66 6d 74 20 6d | 65 73 73 61 67 65 20 22 |"" fmt m|essage "|
|00002900| 4b 69 6c 6c 65 64 20 25 | 64 20 6c 69 6e 65 25 73 |Killed %|d line%s|
|00002910| 2e 22 20 64 69 72 65 64 | 2d 70 6c 75 72 61 6c 2d |." dired|-plural-|
|00002920| 73 5d 29 1f 28 23 24 20 | 2e 20 31 30 31 35 34 29 |s]).(#$ |. 10154)|
|00002930| 20 6e 69 6c 20 35 20 28 | 23 24 20 2e 20 39 37 38 | nil 5 (|#$ . 978|
|00002940| 32 29 20 22 50 22 5d 29 | 0a 28 64 65 66 61 6c 69 |2) "P"])|.(defali|
|00002950| 61 73 20 27 64 69 72 65 | 64 2d 63 6f 6d 70 72 65 |as 'dire|d-compre|
|00002960| 73 73 20 23 5b 6e 69 6c | 20 23 40 32 33 35 20 28 |ss #[nil| #@235 (|
|00002970| 22 c0 19 c2 20 1b c4 0b | 21 89 1d 83 5c 22 01 30 |"... ...|!...\".0|
|00002980| 60 1e 06 c0 c7 c8 8f 88 | 0e 06 62 88 c9 0d 21 88 |`.......|..b...!.|
|00002990| 29 c0 82 29 01 30 ca cb | 0b 50 21 88 0b 2b 87 22 |)..).0..|.P!..+."|
|000029a0| 20 2e 20 5b 6e 69 6c 20 | 62 75 66 66 65 72 2d 72 | . [nil |buffer-r|
|000029b0| 65 61 64 2d 6f 6e 6c 79 | 20 64 69 72 65 64 2d 67 |ead-only| dired-g|
|000029c0| 65 74 2d 66 69 6c 65 6e | 61 6d 65 20 66 72 6f 6d |et-filen|ame from|
|000029d0| 2d 66 69 6c 65 20 64 69 | 72 65 64 2d 63 6f 6d 70 |-file di|red-comp|
|000029e0| 72 65 73 73 2d 66 69 6c | 65 20 6e 65 77 2d 66 69 |ress-fil|e new-fi|
|000029f0| 6c 65 20 73 74 61 72 74 | 20 28 64 69 72 65 64 2d |le start| (dired-|
|00002a00| 72 65 6d 6f 76 65 2d 65 | 6e 74 72 79 20 6e 65 77 |remove-e|ntry new|
|00002a10| 2d 66 69 6c 65 29 20 28 | 28 65 72 72 6f 72 29 29 |-file) (|(error))|
|00002a20| 20 64 69 72 65 64 2d 75 | 70 64 61 74 65 2d 66 69 | dired-u|pdate-fi|
|00002a30| 6c 65 2d 6c 69 6e 65 20 | 64 69 72 65 64 2d 6c 6f |le-line |dired-lo|
|00002a40| 67 20 22 46 61 69 6c 65 | 64 20 74 6f 20 63 6f 6d |g "Faile|d to com|
|00002a50| 70 72 65 73 73 22 5d 29 | 1f 28 23 24 20 2e 20 31 |press"])|.(#$ . 1|
|00002a60| 30 36 30 37 29 20 6e 69 | 6c 20 34 5d 29 0a 23 40 |0607) ni|l 4]).#@|
|00002a70| 35 35 31 20 43 6f 6e 74 | 72 6f 6c 20 63 68 61 6e |551 Cont|rol chan|
|00002a80| 67 65 73 20 69 6e 20 66 | 69 6c 65 20 6e 61 6d 65 |ges in f|ile name|
|00002a90| 20 73 75 66 66 69 78 65 | 73 20 66 6f 72 20 63 6f | suffixe|s for co|
|00002aa0| 6d 70 72 65 73 73 69 6f | 6e 20 61 6e 64 20 75 6e |mpressio|n and un|
|00002ab0| 63 6f 6d 70 72 65 73 73 | 69 6f 6e 2e 0a 45 61 63 |compress|ion..Eac|
|00002ac0| 68 20 65 6c 65 6d 65 6e | 74 20 73 70 65 63 69 66 |h elemen|t specif|
|00002ad0| 69 65 73 20 6f 6e 65 20 | 74 72 61 6e 73 66 6f 72 |ies one |transfor|
|00002ae0| 6d 61 74 69 6f 6e 20 72 | 75 6c 65 2c 20 61 6e 64 |mation r|ule, and|
|00002af0| 20 68 61 73 20 74 68 65 | 20 66 6f 72 6d 3a 0a 20 | has the| form:. |
|00002b00| 20 28 52 45 47 45 58 50 | 20 4e 45 57 2d 53 55 46 | (REGEXP| NEW-SUF|
|00002b10| 46 49 58 20 50 52 4f 47 | 52 41 4d 29 0a 54 68 65 |FIX PROG|RAM).The|
|00002b20| 20 72 75 6c 65 20 61 70 | 70 6c 69 65 73 20 77 68 | rule ap|plies wh|
|00002b30| 65 6e 20 74 68 65 20 6f | 6c 64 20 66 69 6c 65 20 |en the o|ld file |
|00002b40| 6e 61 6d 65 20 6d 61 74 | 63 68 65 73 20 52 45 47 |name mat|ches REG|
|00002b50| 45 58 50 2e 0a 54 68 65 | 20 6e 65 77 20 66 69 6c |EXP..The| new fil|
|00002b60| 65 20 6e 61 6d 65 20 69 | 73 20 63 6f 6d 70 75 74 |e name i|s comput|
|00002b70| 65 64 20 62 79 20 64 65 | 6c 65 74 69 6e 67 20 74 |ed by de|leting t|
|00002b80| 68 65 20 70 61 72 74 20 | 74 68 61 74 20 6d 61 74 |he part |that mat|
|00002b90| 63 68 65 73 20 52 45 47 | 45 58 50 0a 20 28 61 73 |ches REG|EXP. (as|
|00002ba0| 20 77 65 6c 6c 20 61 73 | 20 61 6e 79 74 68 69 6e | well as| anythin|
|00002bb0| 67 20 61 66 74 65 72 20 | 74 68 61 74 29 2c 20 74 |g after |that), t|
|00002bc0| 68 65 6e 20 61 64 64 69 | 6e 67 20 4e 45 57 2d 53 |hen addi|ng NEW-S|
|00002bd0| 55 46 46 49 58 20 69 6e | 20 69 74 73 20 70 6c 61 |UFFIX in| its pla|
|00002be0| 63 65 2e 0a 49 66 20 50 | 52 4f 47 52 41 4d 20 69 |ce..If P|ROGRAM i|
|00002bf0| 73 20 6e 6f 6e 2d 6e 69 | 6c 2c 20 74 68 65 20 72 |s non-ni|l, the r|
|00002c00| 75 6c 65 20 69 73 20 61 | 6e 20 75 6e 63 6f 6d 70 |ule is a|n uncomp|
|00002c10| 72 65 73 73 69 6f 6e 20 | 72 75 6c 65 2c 0a 61 6e |ression |rule,.an|
|00002c20| 64 20 75 6e 63 6f 6d 70 | 72 65 73 73 69 6f 6e 20 |d uncomp|ression |
|00002c30| 69 73 20 64 6f 6e 65 20 | 62 79 20 72 75 6e 6e 69 |is done |by runni|
|00002c40| 6e 67 20 50 52 4f 47 52 | 41 4d 2e 0a 4f 74 68 65 |ng PROGR|AM..Othe|
|00002c50| 72 77 69 73 65 2c 20 74 | 68 65 20 72 75 6c 65 20 |rwise, t|he rule |
|00002c60| 69 73 20 61 20 63 6f 6d | 70 72 65 73 73 69 6f 6e |is a com|pression|
|00002c70| 20 72 75 6c 65 2c 20 61 | 6e 64 20 63 6f 6d 70 72 | rule, a|nd compr|
|00002c80| 65 73 73 69 6f 6e 20 69 | 73 20 64 6f 6e 65 20 77 |ession i|s done w|
|00002c90| 69 74 68 20 67 7a 69 70 | 2e 1f 0a 28 64 65 66 76 |ith gzip|...(defv|
|00002ca0| 61 72 20 64 69 72 65 64 | 2d 63 6f 6d 70 72 65 73 |ar dired|-compres|
|00002cb0| 73 2d 66 69 6c 65 2d 73 | 75 66 66 69 78 65 73 20 |s-file-s|uffixes |
|00002cc0| 28 71 75 6f 74 65 20 28 | 28 22 5c 5c 2e 67 7a 5c |(quote (|("\\.gz\|
|00002cd0| 5c 27 22 20 22 22 20 22 | 67 75 6e 7a 69 70 22 29 |\'" "" "|gunzip")|
|00002ce0| 20 28 22 5c 5c 2e 74 67 | 7a 5c 5c 27 22 20 22 2e | ("\\.tg|z\\'" ".|
|00002cf0| 74 61 72 22 20 22 67 75 | 6e 7a 69 70 22 29 20 28 |tar" "gu|nzip") (|
|00002d00| 22 5c 5c 2e 5a 5c 5c 27 | 22 20 22 22 20 22 75 6e |"\\.Z\\'|" "" "un|
|00002d10| 63 6f 6d 70 72 65 73 73 | 22 29 20 28 22 5c 5c 2e |compress|") ("\\.|
|00002d20| 7a 5c 5c 27 22 20 22 22 | 20 22 67 75 6e 7a 69 70 |z\\'" ""| "gunzip|
|00002d30| 22 29 20 28 22 5c 5c 2e | 74 61 72 5c 5c 27 22 20 |") ("\\.|tar\\'" |
|00002d40| 22 2e 74 67 7a 22 20 6e | 69 6c 29 29 29 20 28 23 |".tgz" n|il))) (#|
|00002d50| 24 20 2e 20 31 30 38 36 | 38 29 29 0a 28 64 65 66 |$ . 1086|8)).(def|
|00002d60| 61 6c 69 61 73 20 27 64 | 69 72 65 64 2d 63 6f 6d |alias 'd|ired-com|
|00002d70| 70 72 65 73 73 2d 66 69 | 6c 65 20 23 5b 28 66 69 |press-fi|le #[(fi|
|00002d80| 6c 65 29 20 23 40 36 35 | 39 20 28 22 c0 09 c2 5c |le) #@65|9 ("...\|
|00002d90| 22 c3 89 5c 66 1d 1e 06 | 1e 07 1e 08 0d 83 2b 01 |"..\f...|......+.|
|00002da0| 30 c3 1e 09 ca 0d 40 40 | 09 5c 22 83 24 01 30 0d |0.....@@|.\".$.0.|
|00002db0| 40 16 07 c3 15 0d 41 15 | 29 82 0e 01 30 0e 07 83 |@.....A.|)...0...|
|00002dc0| 3c 01 30 09 cb 89 94 4f | 0e 07 41 40 50 16 06 0e |<.0....O|..A@P...|
|00002dd0| 08 83 49 01 30 0e 08 c2 | 09 5c 22 82 76 01 30 cc |..I.0...|.\".v.0.|
|00002de0| 09 21 83 53 01 30 c3 82 | 76 01 30 0e 07 83 72 01 |.!.S.0..|v.0...r.|
|00002df0| 30 cd 0e 07 38 83 72 01 | 30 ce cf 09 50 cd 0e 07 |0...8.r.|0...P...|
|00002e00| 38 09 23 3f 85 76 01 30 | 0e 06 82 76 01 30 c3 d0 |8.#?.v.0|...v.0..|
|00002e10| d1 8f 2c 87 22 20 2e 20 | 5b 66 69 6e 64 2d 66 69 |..,." . |[find-fi|
|00002e20| 6c 65 2d 6e 61 6d 65 2d | 68 61 6e 64 6c 65 72 20 |le-name-|handler |
|00002e30| 66 69 6c 65 20 64 69 72 | 65 64 2d 63 6f 6d 70 72 |file dir|ed-compr|
|00002e40| 65 73 73 2d 66 69 6c 65 | 20 6e 69 6c 20 64 69 72 |ess-file| nil dir|
|00002e50| 65 64 2d 63 6f 6d 70 72 | 65 73 73 2d 66 69 6c 65 |ed-compr|ess-file|
|00002e60| 2d 73 75 66 66 69 78 65 | 73 20 73 75 66 66 69 78 |-suffixe|s suffix|
|00002e70| 65 73 20 6e 65 77 6e 61 | 6d 65 20 73 75 66 66 69 |es newna|me suffi|
|00002e80| 78 20 68 61 6e 64 6c 65 | 72 20 63 61 73 65 2d 66 |x handle|r case-f|
|00002e90| 6f 6c 64 2d 73 65 61 72 | 63 68 20 73 74 72 69 6e |old-sear|ch strin|
|00002ea0| 67 2d 6d 61 74 63 68 20 | 30 20 66 69 6c 65 2d 73 |g-match |0 file-s|
|00002eb0| 79 6d 6c 69 6e 6b 2d 70 | 20 32 20 64 69 72 65 64 |ymlink-p| 2 dired|
|00002ec0| 2d 63 68 65 63 6b 2d 70 | 72 6f 63 65 73 73 20 22 |-check-p|rocess "|
|00002ed0| 55 6e 63 6f 6d 70 72 65 | 73 73 69 6e 67 20 22 20 |Uncompre|ssing " |
|00002ee0| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c0 c1 5c 6e |(byte-co|de "..\n|
|00002ef0| 50 c3 c4 5c 6e 24 3f 85 | 3c 01 30 c5 5c 6e c6 50 |P..\n$?.|<.0.\n.P|
|00002f00| 21 83 1a 01 30 5c 6e c6 | 50 82 1d 01 30 5c 6e c7 |!...0\n.|P...0\n.|
|00002f10| 50 1e 08 0e 09 83 39 01 | 30 0e 09 0e 08 9a 84 39 |P.....9.|0......9|
|00002f20| 01 30 ca 0e 08 0e 09 cb | 23 88 0e 09 82 3b 01 30 |.0......|#....;.0|
|00002f30| 0e 08 29 87 22 20 5b 64 | 69 72 65 64 2d 63 68 65 |..)." [d|ired-che|
|00002f40| 63 6b 2d 70 72 6f 63 65 | 73 73 20 22 43 6f 6d 70 |ck-proce|ss "Comp|
|00002f50| 72 65 73 73 69 6e 67 20 | 22 20 66 69 6c 65 20 22 |ressing |" file "|
|00002f60| 67 7a 69 70 22 20 22 2d | 66 22 20 66 69 6c 65 2d |gzip" "-|f" file-|
|00002f70| 65 78 69 73 74 73 2d 70 | 20 22 2e 67 7a 22 20 22 |exists-p| ".gz" "|
|00002f80| 2e 7a 22 20 6f 75 74 2d | 6e 61 6d 65 20 6e 65 77 |.z" out-|name new|
|00002f90| 6e 61 6d 65 20 72 65 6e | 61 6d 65 2d 66 69 6c 65 |name ren|ame-file|
|00002fa0| 20 74 5d 20 35 29 20 28 | 28 66 69 6c 65 2d 65 72 | t] 5) (|(file-er|
|00002fb0| 72 6f 72 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |ror (byt|e-code "|
|00002fc0| c0 c1 5c 6e 50 c3 c4 5c | 6e 24 3f 85 0f 01 30 5c |..\nP..\|n$?...0\|
|00002fd0| 6e c5 50 87 22 20 5b 64 | 69 72 65 64 2d 63 68 65 |n.P." [d|ired-che|
|00002fe0| 63 6b 2d 70 72 6f 63 65 | 73 73 20 22 43 6f 6d 70 |ck-proce|ss "Comp|
|00002ff0| 72 65 73 73 69 6e 67 20 | 22 20 66 69 6c 65 20 22 |ressing |" file "|
|00003000| 63 6f 6d 70 72 65 73 73 | 22 20 22 2d 66 22 20 22 |compress|" "-f" "|
|00003010| 2e 5a 22 5d 20 35 29 29 | 29 5d 29 1f 28 23 24 20 |.Z"] 5))|)]).(#$ |
|00003020| 2e 20 31 31 36 35 38 29 | 20 6e 69 6c 20 34 5d 29 |. 11658)| nil 4])|
|00003030| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 64 69 72 65 |.(defali|as 'dire|
|00003040| 64 2d 6d 61 72 6b 2d 63 | 6f 6e 66 69 72 6d 20 23 |d-mark-c|onfirm #|
|00003050| 5b 28 6f 70 2d 73 79 6d | 62 6f 6c 20 61 72 67 29 |[(op-sym|bol arg)|
|00003060| 20 23 40 32 35 32 20 28 | 22 08 09 3e 86 2f 01 30 | #@252 (|"..>./.0|
|00003070| c2 c3 5c 66 5c 22 08 c5 | 3d 83 14 01 30 c6 82 19 |..\f\"..|=...0...|
|00003080| 01 30 c7 c8 08 21 21 1e | 09 1e 5c 6e cb cc 08 0e |.0...!!.|..\n....|
|00003090| 5c 6e cd 0e 09 ce cf 5c | 66 0e 5c 6e 5c 22 d0 52 |\n.....\|f.\n\".R|
|000030a0| 25 2a 87 22 20 2e 20 5b | 6f 70 2d 73 79 6d 62 6f |%*." . [|op-symbo|
|000030b0| 6c 20 64 69 72 65 64 2d | 6e 6f 2d 63 6f 6e 66 69 |l dired-|no-confi|
|000030c0| 72 6d 20 64 69 72 65 64 | 2d 67 65 74 2d 6d 61 72 |rm dired|-get-mar|
|000030d0| 6b 65 64 2d 66 69 6c 65 | 73 20 74 20 61 72 67 20 |ked-file|s t arg |
|000030e0| 63 6f 6d 70 72 65 73 73 | 20 22 43 6f 6d 70 72 65 |compress| "Compre|
|000030f0| 73 73 20 6f 72 20 75 6e | 63 6f 6d 70 72 65 73 73 |ss or un|compress|
|00003100| 22 20 63 61 70 69 74 61 | 6c 69 7a 65 20 73 79 6d |" capita|lize sym|
|00003110| 62 6f 6c 2d 6e 61 6d 65 | 20 73 74 72 69 6e 67 20 |bol-name| string |
|00003120| 66 69 6c 65 73 20 64 69 | 72 65 64 2d 6d 61 72 6b |files di|red-mark|
|00003130| 2d 70 6f 70 2d 75 70 20 | 6e 69 6c 20 79 2d 6f 72 |-pop-up |nil y-or|
|00003140| 2d 6e 2d 70 20 22 20 22 | 20 64 69 72 65 64 2d 6d |-n-p " "| dired-m|
|00003150| 61 72 6b 2d 70 72 6f 6d | 70 74 20 22 3f 20 22 5d |ark-prom|pt "? "]|
|00003160| 29 1f 28 23 24 20 2e 20 | 31 32 33 39 31 29 20 6e |).(#$ . |12391) n|
|00003170| 69 6c 20 31 30 5d 29 0a | 28 64 65 66 61 6c 69 61 |il 10]).|(defalia|
|00003180| 73 20 27 64 69 72 65 64 | 2d 6d 61 70 2d 6f 76 65 |s 'dired|-map-ove|
|00003190| 72 2d 6d 61 72 6b 73 2d | 63 68 65 63 6b 20 23 5b |r-marks-|check #[|
|000031a0| 28 66 75 6e 20 61 72 67 | 20 6f 70 2d 73 79 6d 62 |(fun arg| op-symb|
|000031b0| 6f 6c 20 26 6f 70 74 69 | 6f 6e 61 6c 20 73 68 6f |ol &opti|onal sho|
|000031c0| 77 2d 70 72 6f 67 72 65 | 73 73 29 20 23 40 37 37 |w-progre|ss) #@77|
|000031d0| 30 20 28 22 c0 09 5c 6e | 5c 22 85 e1 01 30 c3 89 |0 ("..\n|\"...0..|
|000031e0| 89 89 1c 1d 1e 06 1e 07 | 5c 6e 83 35 01 30 5c 6e |........|\n.5.0\n|
|000031f0| a8 83 2e 01 30 c8 5c 6e | c9 5c 22 88 5c 6e ca 57 |....0.\n|.\".\n.W|
|00003200| 83 2a 01 30 5c 66 9f 82 | 95 01 30 5c 66 82 95 01 |.*.0\f..|..0\f...|
|00003210| 30 0e 0b 20 43 82 95 01 | 30 cc 20 c3 1e 0d 1e 0e |0.. C...|0. .....|
|00003220| 8a 65 62 88 cf 0e 0e c3 | d0 23 85 4b 01 30 d1 20 |.eb.....|.#.K.0. |
|00003230| 89 16 0d 3f 3f 15 0e 0d | 83 87 01 30 0e 0d 62 88 |...??...|...0..b.|
|00003240| 0e 12 83 63 01 30 d3 ca | 21 88 0e 0b 20 5c 66 42 |...c.0..|!... \fB|
|00003250| 14 0e 0d 62 88 d4 79 88 | 0e 0d c3 89 93 88 cf 0e |...b..y.|........|
|00003260| 0e c3 d0 23 85 81 01 30 | d1 20 89 16 0d 84 56 01 |...#...0|. ....V.|
|00003270| 30 29 0d 83 90 01 30 5c | 66 82 94 01 30 0e 0b 20 |0)....0\|f...0.. |
|00003280| 43 2a 2c d5 20 88 89 1e | 16 47 1e 17 d8 c3 0e 16 |C*,. ...|.G......|
|00003290| 5c 22 89 1e 19 47 1e 1a | 09 db 3d 83 b4 01 30 dc |\"...G..|..=...0.|
|000032a0| 82 b9 01 30 dd de 09 21 | 21 1e 01 5f 0e 19 84 ce |...0...!|!.._....|
|000032b0| 01 30 e0 e1 0e 01 5f 0e | 17 e2 0e 17 21 24 82 e0 |.0...._.|....!$..|
|000032c0| 01 30 e3 e4 e5 0e 01 5f | 97 0e 1a 0e 17 e2 0e 17 |.0....._|........|
|000032d0| 21 25 0e 19 5c 22 2d 87 | 22 20 2e 20 5b 64 69 72 |!%..\"-.|" . [dir|
|000032e0| 65 64 2d 6d 61 72 6b 2d | 63 6f 6e 66 69 72 6d 20 |ed-mark-|confirm |
|000032f0| 6f 70 2d 73 79 6d 62 6f | 6c 20 61 72 67 20 6e 69 |op-symbo|l arg ni|
|00003300| 6c 20 72 65 73 75 6c 74 | 73 20 66 6f 75 6e 64 20 |l result|s found |
|00003310| 63 61 73 65 2d 66 6f 6c | 64 2d 73 65 61 72 63 68 |case-fol|d-search|
|00003320| 20 62 75 66 66 65 72 2d | 72 65 61 64 2d 6f 6e 6c | buffer-|read-onl|
|00003330| 79 20 64 69 72 65 64 2d | 72 65 70 65 61 74 2d 6f |y dired-|repeat-o|
|00003340| 76 65 72 2d 6c 69 6e 65 | 73 20 23 5b 6e 69 6c 20 |ver-line|s #[nil |
|00003350| 22 08 83 08 01 30 c1 c2 | 21 88 0b 20 5c 66 42 89 |"....0..|!.. \fB.|
|00003360| 14 87 22 20 5b 73 68 6f | 77 2d 70 72 6f 67 72 65 |.." [sho|w-progre|
|00003370| 73 73 20 73 69 74 2d 66 | 6f 72 20 30 20 66 75 6e |ss sit-f|or 0 fun|
|00003380| 20 72 65 73 75 6c 74 73 | 5d 20 32 5d 20 30 20 66 | results|] 2] 0 f|
|00003390| 75 6e 20 64 69 72 65 64 | 2d 6d 61 72 6b 65 72 2d |un dired|-marker-|
|000033a0| 72 65 67 65 78 70 20 6e | 65 78 74 2d 70 6f 73 69 |regexp n|ext-posi|
|000033b0| 74 69 6f 6e 20 72 65 67 | 65 78 70 20 72 65 2d 73 |tion reg|exp re-s|
|000033c0| 65 61 72 63 68 2d 66 6f | 72 77 61 72 64 20 74 20 |earch-fo|rward t |
|000033d0| 70 6f 69 6e 74 2d 6d 61 | 72 6b 65 72 20 73 68 6f |point-ma|rker sho|
|000033e0| 77 2d 70 72 6f 67 72 65 | 73 73 20 73 69 74 2d 66 |w-progre|ss sit-f|
|000033f0| 6f 72 20 31 20 64 69 72 | 65 64 2d 6d 6f 76 65 2d |or 1 dir|ed-move-|
|00003400| 74 6f 2d 66 69 6c 65 6e | 61 6d 65 20 74 6f 74 61 |to-filen|ame tota|
|00003410| 6c 2d 6c 69 73 74 20 74 | 6f 74 61 6c 20 64 65 6c |l-list t|otal del|
|00003420| 71 20 66 61 69 6c 75 72 | 65 73 20 63 6f 75 6e 74 |q failur|es count|
|00003430| 20 63 6f 6d 70 72 65 73 | 73 20 22 43 6f 6d 70 72 | compres|s "Compr|
|00003440| 65 73 73 20 6f 72 20 75 | 6e 63 6f 6d 70 72 65 73 |ess or u|ncompres|
|00003450| 73 22 20 63 61 70 69 74 | 61 6c 69 7a 65 20 73 79 |s" capit|alize sy|
|00003460| 6d 62 6f 6c 2d 6e 61 6d | 65 20 73 74 72 69 6e 67 |mbol-nam|e string|
|00003470| 20 6d 65 73 73 61 67 65 | 20 22 25 73 3a 20 25 64 | message| "%s: %d|
|00003480| 20 66 69 6c 65 25 73 2e | 22 20 64 69 72 65 64 2d | file%s.|" dired-|
|00003490| 70 6c 75 72 61 6c 2d 73 | 20 64 69 72 65 64 2d 6c |plural-s| dired-l|
|000034a0| 6f 67 2d 73 75 6d 6d 61 | 72 79 20 66 6f 72 6d 61 |og-summa|ry forma|
|000034b0| 74 20 22 46 61 69 6c 65 | 64 20 74 6f 20 25 73 20 |t "Faile|d to %s |
|000034c0| 25 64 20 6f 66 20 25 64 | 20 66 69 6c 65 25 73 22 |%d of %d| file%s"|
|000034d0| 5d 29 1f 28 23 24 20 2e | 20 31 32 37 35 34 29 20 |]).(#$ .| 12754) |
|000034e0| 6e 69 6c 20 39 5d 29 0a | 28 62 79 74 65 2d 63 6f |nil 9]).|(byte-co|
|000034f0| 64 65 20 22 c0 c1 21 84 | 08 00 c2 11 c1 0b 42 13 |de "..!.|......B.|
|00003500| c0 87 22 20 5b 62 6f 75 | 6e 64 70 20 64 69 72 65 |.." [bou|ndp dire|
|00003510| 64 2d 71 75 65 72 79 2d | 61 6c 69 73 74 20 28 28 |d-query-|alist ((|
|00003520| 31 32 31 20 2e 20 79 29 | 20 28 33 32 20 2e 20 79 |121 . y)| (32 . y|
|00003530| 29 20 28 31 31 30 20 2e | 20 6e 29 20 28 31 32 37 |) (110 .| n) (127|
|00003540| 20 2e 20 6e 29 20 28 33 | 33 20 2e 20 79 65 73 29 | . n) (3|3 . yes)|
|00003550| 20 28 31 31 33 20 2e 20 | 6e 6f 29 20 28 32 37 20 | (113 . |no) (27 |
|00003560| 2e 20 6e 6f 29 29 20 63 | 75 72 72 65 6e 74 2d 6c |. no)) c|urrent-l|
|00003570| 6f 61 64 2d 6c 69 73 74 | 5d 20 32 29 0a 28 64 65 |oad-list|] 2).(de|
|00003580| 66 61 6c 69 61 73 20 27 | 64 69 72 65 64 2d 71 75 |falias '|dired-qu|
|00003590| 65 72 79 20 23 5b 28 71 | 73 2d 76 61 72 20 71 73 |ery #[(q|s-var qs|
|000035a0| 2d 70 72 6f 6d 70 74 20 | 26 72 65 73 74 20 71 73 |-prompt |&rest qs|
|000035b0| 2d 61 72 67 73 29 20 23 | 40 34 32 33 20 28 22 08 |-args) #|@423 (".|
|000035c0| 4a 19 c2 09 0b 5c 22 41 | 89 1c c5 3d 83 13 01 30 |J....\"A|...=...0|
|000035d0| c6 82 74 01 30 5c 66 c7 | 3d 83 1d 01 30 c8 82 74 |..t.0\f.|=...0..t|
|000035e0| 01 30 0e 09 0e 5c 6e 83 | 30 01 30 cb cc cd ce 0e |.0...\n.|0.0.....|
|000035f0| 0f 21 21 5c 22 82 31 01 | 30 d0 50 c8 89 1e 11 1e |.!!\".1.|0.P.....|
|00003600| 12 1e 13 d4 d5 0e 13 0e | 16 23 88 08 d7 20 4c 11 |........|.#... L.|
|00003610| c2 09 0b 5c 22 89 16 11 | 84 6e 01 30 d5 d8 0e 0f |...\"...|.n.0....|
|00003620| 5c 22 88 d9 20 88 da db | 21 88 d4 d5 0e 13 0e 16 |\".. ...|!.......|
|00003630| 23 88 08 d7 20 4c 11 82 | 47 01 30 0e 11 41 dc 3e |#... L..|G.0..A.>|
|00003640| 2b 2a 87 22 20 2e 20 5b | 71 73 2d 76 61 72 20 63 |+*." . [|qs-var c|
|00003650| 68 61 72 20 61 73 73 6f | 63 20 64 69 72 65 64 2d |har asso|c dired-|
|00003660| 71 75 65 72 79 2d 61 6c | 69 73 74 20 61 63 74 69 |query-al|ist acti|
|00003670| 6f 6e 20 79 65 73 20 74 | 20 6e 6f 20 6e 69 6c 20 |on yes t| no nil |
|00003680| 71 73 2d 70 72 6f 6d 70 | 74 20 68 65 6c 70 2d 66 |qs-promp|t help-f|
|00003690| 6f 72 6d 20 66 6f 72 6d | 61 74 20 22 20 5b 54 79 |orm form|at " [Ty|
|000036a0| 70 65 20 79 6e 21 71 20 | 6f 72 20 25 73 5d 20 22 |pe yn!q |or %s] "|
|000036b0| 20 6b 65 79 2d 64 65 73 | 63 72 69 70 74 69 6f 6e | key-des|cription|
|000036c0| 20 63 68 61 72 2d 74 6f | 2d 73 74 72 69 6e 67 20 | char-to|-string |
|000036d0| 68 65 6c 70 2d 63 68 61 | 72 20 22 20 5b 54 79 70 |help-cha|r " [Typ|
|000036e0| 65 20 79 2c 20 6e 2c 20 | 71 20 6f 72 20 21 5d 20 |e y, n, |q or !] |
|000036f0| 22 20 65 6c 74 20 72 65 | 73 75 6c 74 20 71 70 72 |" elt re|sult qpr|
|00003700| 6f 6d 70 74 20 61 70 70 | 6c 79 20 6d 65 73 73 61 |ompt app|ly messa|
|00003710| 67 65 20 71 73 2d 61 72 | 67 73 20 72 65 61 64 2d |ge qs-ar|gs read-|
|00003720| 63 68 61 72 20 22 49 6e | 76 61 6c 69 64 20 63 68 |char "In|valid ch|
|00003730| 61 72 20 2d 20 74 79 70 | 65 20 25 63 20 66 6f 72 |ar - typ|e %c for|
|00003740| 20 68 65 6c 70 2e 22 20 | 64 69 6e 67 20 73 69 74 | help." |ding sit|
|00003750| 2d 66 6f 72 20 31 20 28 | 74 20 79 20 79 65 73 29 |-for 1 (|t y yes)|
|00003760| 5d 29 1f 28 23 24 20 2e | 20 31 33 37 35 37 29 20 |]).(#$ .| 13757) |
|00003770| 6e 69 6c 20 37 5d 29 0a | 23 40 35 32 20 43 6f 6d |nil 7]).|#@52 Com|
|00003780| 70 72 65 73 73 20 6f 72 | 20 75 6e 63 6f 6d 70 72 |press or| uncompr|
|00003790| 65 73 73 20 6d 61 72 6b | 65 64 20 28 6f 72 20 6e |ess mark|ed (or n|
|000037a0| 65 78 74 20 41 52 47 29 | 20 66 69 6c 65 73 2e 1f |ext ARG)| files..|
|000037b0| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 64 69 72 65 |.(defali|as 'dire|
|000037c0| 64 2d 64 6f 2d 63 6f 6d | 70 72 65 73 73 20 23 5b |d-do-com|press #[|
|000037d0| 28 26 6f 70 74 69 6f 6e | 61 6c 20 61 72 67 29 20 |(&option|al arg) |
|000037e0| 23 40 37 35 20 28 22 c0 | c1 5c 6e c3 c4 24 87 22 |#@75 (".|.\n..$."|
|000037f0| 20 2e 20 5b 64 69 72 65 | 64 2d 6d 61 70 2d 6f 76 | . [dire|d-map-ov|
|00003800| 65 72 2d 6d 61 72 6b 73 | 2d 63 68 65 63 6b 20 64 |er-marks|-check d|
|00003810| 69 72 65 64 2d 63 6f 6d | 70 72 65 73 73 20 61 72 |ired-com|press ar|
|00003820| 67 20 63 6f 6d 70 72 65 | 73 73 20 74 5d 29 1f 28 |g compre|ss t]).(|
|00003830| 23 24 20 2e 20 31 34 33 | 30 39 29 20 6e 69 6c 20 |#$ . 143|09) nil |
|00003840| 35 20 28 23 24 20 2e 20 | 31 34 32 30 35 29 20 22 |5 (#$ . |14205) "|
|00003850| 50 22 5d 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |P"]).(de|falias '|
|00003860| 64 69 72 65 64 2d 62 79 | 74 65 2d 63 6f 6d 70 69 |dired-by|te-compi|
|00003870| 6c 65 20 23 5b 6e 69 6c | 20 23 40 33 37 39 20 28 |le #[nil| #@379 (|
|00003880| 22 c0 20 19 c2 1b c2 1c | c2 1d c6 c7 c8 8f 88 c9 |". .....|........|
|00003890| 09 21 13 ca 0b 21 84 1a | 01 30 cb 15 0d 83 2a 01 |.!...!..|.0....*.|
|000038a0| 30 cc cd 09 0d 23 88 ce | 09 21 82 36 01 30 cf 0b |0....#..|.!.6.0..|
|000038b0| 21 88 c2 79 88 d0 0b 21 | 88 c2 2c 87 22 20 2e 20 |!..y...!|..,." . |
|000038c0| 5b 64 69 72 65 64 2d 67 | 65 74 2d 66 69 6c 65 6e |[dired-g|et-filen|
|000038d0| 61 6d 65 20 66 69 6c 65 | 6e 61 6d 65 20 6e 69 6c |ame file|name nil|
|000038e0| 20 65 6c 63 2d 66 69 6c | 65 20 62 75 66 66 65 72 | elc-fil|e buffer|
|000038f0| 2d 72 65 61 64 2d 6f 6e | 6c 79 20 66 61 69 6c 75 |-read-on|ly failu|
|00003900| 72 65 20 65 72 72 20 28 | 62 79 74 65 2d 63 6f 64 |re err (|byte-cod|
|00003910| 65 20 22 8a c0 09 21 88 | 29 c0 87 22 20 5b 62 79 |e "...!.|).." [by|
|00003920| 74 65 2d 63 6f 6d 70 69 | 6c 65 2d 66 69 6c 65 20 |te-compi|le-file |
|00003930| 66 69 6c 65 6e 61 6d 65 | 5d 20 32 29 20 28 28 65 |filename|] 2) ((e|
|00003940| 72 72 6f 72 20 28 62 79 | 74 65 2d 63 6f 64 65 20 |rror (by|te-code |
|00003950| 22 08 11 c2 87 22 20 5b | 65 72 72 20 66 61 69 6c |"...." [|err fail|
|00003960| 75 72 65 20 6e 69 6c 5d | 20 31 29 29 29 20 62 79 |ure nil]| 1))) by|
|00003970| 74 65 2d 63 6f 6d 70 69 | 6c 65 2d 64 65 73 74 2d |te-compi|le-dest-|
|00003980| 66 69 6c 65 20 66 69 6c | 65 2d 65 78 69 73 74 73 |file fil|e-exists|
|00003990| 2d 70 20 74 20 64 69 72 | 65 64 2d 6c 6f 67 20 22 |-p t dir|ed-log "|
|000039a0| 42 79 74 65 20 63 6f 6d | 70 69 6c 65 20 65 72 72 |Byte com|pile err|
|000039b0| 6f 72 20 66 6f 72 20 25 | 73 3a 5c 6e 25 73 5c 6e |or for %|s:\n%s\n|
|000039c0| 22 20 64 69 72 65 64 2d | 6d 61 6b 65 2d 72 65 6c |" dired-|make-rel|
|000039d0| 61 74 69 76 65 20 64 69 | 72 65 64 2d 72 65 6d 6f |ative di|red-remo|
|000039e0| 76 65 2d 66 69 6c 65 20 | 64 69 72 65 64 2d 61 64 |ve-file |dired-ad|
|000039f0| 64 2d 66 69 6c 65 5d 29 | 1f 28 23 24 20 2e 20 31 |d-file])|.(#$ . 1|
|00003a00| 34 34 36 33 29 20 6e 69 | 6c 20 34 5d 29 0a 23 40 |4463) ni|l 4]).#@|
|00003a10| 35 33 20 42 79 74 65 20 | 63 6f 6d 70 69 6c 65 20 |53 Byte |compile |
|00003a20| 6d 61 72 6b 65 64 20 28 | 6f 72 20 6e 65 78 74 20 |marked (|or next |
|00003a30| 41 52 47 29 20 45 6d 61 | 63 73 20 4c 69 73 70 20 |ARG) Ema|cs Lisp |
|00003a40| 66 69 6c 65 73 2e 1f 0a | 28 64 65 66 61 6c 69 61 |files...|(defalia|
|00003a50| 73 20 27 64 69 72 65 64 | 2d 64 6f 2d 62 79 74 65 |s 'dired|-do-byte|
|00003a60| 2d 63 6f 6d 70 69 6c 65 | 20 23 5b 28 26 6f 70 74 |-compile| #[(&opt|
|00003a70| 69 6f 6e 61 6c 20 61 72 | 67 29 20 23 40 38 33 20 |ional ar|g) #@83 |
|00003a80| 28 22 c0 c1 5c 6e c3 c4 | 24 87 22 20 2e 20 5b 64 |("..\n..|$." . [d|
|00003a90| 69 72 65 64 2d 6d 61 70 | 2d 6f 76 65 72 2d 6d 61 |ired-map|-over-ma|
|00003aa0| 72 6b 73 2d 63 68 65 63 | 6b 20 64 69 72 65 64 2d |rks-chec|k dired-|
|00003ab0| 62 79 74 65 2d 63 6f 6d | 70 69 6c 65 20 61 72 67 |byte-com|pile arg|
|00003ac0| 20 62 79 74 65 2d 63 6f | 6d 70 69 6c 65 20 74 5d | byte-co|mpile t]|
|00003ad0| 29 1f 28 23 24 20 2e 20 | 31 34 39 37 36 29 20 6e |).(#$ . |14976) n|
|00003ae0| 69 6c 20 35 20 28 23 24 | 20 2e 20 31 34 38 36 37 |il 5 (#$| . 14867|
|00003af0| 29 20 22 50 22 5d 29 0a | 28 64 65 66 61 6c 69 61 |) "P"]).|(defalia|
|00003b00| 73 20 27 64 69 72 65 64 | 2d 6c 6f 61 64 20 23 5b |s 'dired|-load #[|
|00003b10| 6e 69 6c 20 23 40 32 32 | 36 20 28 22 c0 20 c1 1a |nil #@22|6 (". ..|
|00003b20| 1b c4 c5 c6 8f 88 5c 6e | 85 17 01 30 c7 c8 0b 5c |......\n|...0...\|
|00003b30| 6e 23 88 c9 0b 21 2a 87 | 22 20 2e 20 5b 64 69 72 |n#...!*.|" . [dir|
|00003b40| 65 64 2d 67 65 74 2d 66 | 69 6c 65 6e 61 6d 65 20 |ed-get-f|ilename |
|00003b50| 6e 69 6c 20 66 61 69 6c | 75 72 65 20 66 69 6c 65 |nil fail|ure file|
|00003b60| 20 65 72 72 20 28 62 79 | 74 65 2d 63 6f 64 65 20 | err (by|te-code |
|00003b70| 22 c0 09 c2 89 c3 24 87 | 22 20 5b 6c 6f 61 64 20 |".....$.|" [load |
|00003b80| 66 69 6c 65 20 6e 69 6c | 20 74 5d 20 35 29 20 28 |file nil| t] 5) (|
|00003b90| 28 65 72 72 6f 72 20 28 | 62 79 74 65 2d 63 6f 64 |(error (|byte-cod|
|00003ba0| 65 20 22 08 11 c2 87 22 | 20 5b 65 72 72 20 66 61 |e "...."| [err fa|
|00003bb0| 69 6c 75 72 65 20 6e 69 | 6c 5d 20 31 29 29 29 20 |ilure ni|l] 1))) |
|00003bc0| 64 69 72 65 64 2d 6c 6f | 67 20 22 4c 6f 61 64 20 |dired-lo|g "Load |
|00003bd0| 65 72 72 6f 72 20 66 6f | 72 20 25 73 3a 5c 6e 25 |error fo|r %s:\n%|
|00003be0| 73 5c 6e 22 20 64 69 72 | 65 64 2d 6d 61 6b 65 2d |s\n" dir|ed-make-|
|00003bf0| 72 65 6c 61 74 69 76 65 | 5d 29 1f 28 23 24 20 2e |relative|]).(#$ .|
|00003c00| 20 31 35 31 33 30 29 20 | 6e 69 6c 20 34 5d 29 0a | 15130) |nil 4]).|
|00003c10| 23 40 34 39 20 4c 6f 61 | 64 20 74 68 65 20 6d 61 |#@49 Loa|d the ma|
|00003c20| 72 6b 65 64 20 28 6f 72 | 20 6e 65 78 74 20 41 52 |rked (or| next AR|
|00003c30| 47 29 20 45 6d 61 63 73 | 20 4c 69 73 70 20 66 69 |G) Emacs| Lisp fi|
|00003c40| 6c 65 73 2e 1f 0a 28 64 | 65 66 61 6c 69 61 73 20 |les...(d|efalias |
|00003c50| 27 64 69 72 65 64 2d 64 | 6f 2d 6c 6f 61 64 20 23 |'dired-d|o-load #|
|00003c60| 5b 28 26 6f 70 74 69 6f | 6e 61 6c 20 61 72 67 29 |[(&optio|nal arg)|
|00003c70| 20 23 40 36 37 20 28 22 | c0 c1 5c 6e c3 c4 24 87 | #@67 ("|..\n..$.|
|00003c80| 22 20 2e 20 5b 64 69 72 | 65 64 2d 6d 61 70 2d 6f |" . [dir|ed-map-o|
|00003c90| 76 65 72 2d 6d 61 72 6b | 73 2d 63 68 65 63 6b 20 |ver-mark|s-check |
|00003ca0| 64 69 72 65 64 2d 6c 6f | 61 64 20 61 72 67 20 6c |dired-lo|ad arg l|
|00003cb0| 6f 61 64 20 74 5d 29 1f | 28 23 24 20 2e 20 31 35 |oad t]).|(#$ . 15|
|00003cc0| 34 37 38 29 20 6e 69 6c | 20 35 20 28 23 24 20 2e |478) nil| 5 (#$ .|
|00003cd0| 20 31 35 33 38 31 29 20 | 22 50 22 5d 29 0a 23 40 | 15381) |"P"]).#@|
|00003ce0| 31 37 39 20 52 65 64 69 | 73 70 6c 61 79 20 61 6c |179 Redi|splay al|
|00003cf0| 6c 20 6d 61 72 6b 65 64 | 20 28 6f 72 20 6e 65 78 |l marked| (or nex|
|00003d00| 74 20 41 52 47 29 20 66 | 69 6c 65 73 2e 0a 49 66 |t ARG) f|iles..If|
|00003d10| 20 6f 6e 20 61 20 73 75 | 62 64 69 72 20 6c 69 6e | on a su|bdir lin|
|00003d20| 65 2c 20 72 65 64 69 73 | 70 6c 61 79 20 74 68 61 |e, redis|play tha|
|00003d30| 74 20 73 75 62 64 69 72 | 65 63 74 6f 72 79 2e 20 |t subdir|ectory. |
|00003d40| 20 49 6e 20 74 68 61 74 | 20 63 61 73 65 2c 0a 61 | In that| case,.a|
|00003d50| 20 70 72 65 66 69 78 20 | 61 72 67 20 6c 65 74 73 | prefix |arg lets|
|00003d60| 20 79 6f 75 20 65 64 69 | 74 20 74 68 65 20 60 6c | you edi|t the `l|
|00003d70| 73 27 20 73 77 69 74 63 | 68 65 73 20 75 73 65 64 |s' switc|hes used|
|00003d80| 20 66 6f 72 20 74 68 65 | 20 6e 65 77 20 6c 69 73 | for the| new lis|
|00003d90| 74 69 6e 67 2e 1f 0a 28 | 64 65 66 61 6c 69 61 73 |ting...(|defalias|
|00003da0| 20 27 64 69 72 65 64 2d | 64 6f 2d 72 65 64 69 73 | 'dired-|do-redis|
|00003db0| 70 6c 61 79 20 23 5b 28 | 26 6f 70 74 69 6f 6e 61 |play #[(|&optiona|
|00003dc0| 6c 20 61 72 67 20 74 65 | 73 74 2d 66 6f 72 2d 73 |l arg te|st-for-s|
|00003dd0| 75 62 64 69 72 29 20 23 | 40 38 31 39 20 28 22 08 |ubdir) #|@819 (".|
|00003de0| 83 17 01 30 c1 20 83 17 | 01 30 c2 c1 20 0b 85 15 |...0. ..|.0.. ...|
|00003df0| 01 30 c4 c5 0e 06 5c 22 | 5c 22 87 c7 c8 21 88 c9 |.0....\"|\"...!..|
|00003e00| 0e 5c 6e 3a 83 28 01 30 | 0e 5c 6e 40 82 2a 01 30 |.\n:.(.0|.\n@.*.0|
|00003e10| 0e 5c 6e 21 88 cb 89 89 | 89 1e 5c 66 1e 0d 1e 0e |.\n!....|..\f....|
|00003e20| 1e 0f 0b 83 66 01 30 0b | a8 83 53 01 30 d0 0b d1 |....f.0.|..S.0...|
|00003e30| 5c 22 88 0b d2 57 83 d5 | 01 30 0e 5c 66 9f 88 82 |\"...W..|.0.\f...|
|00003e40| d5 01 30 d3 20 1e 14 c7 | d5 0e 14 5c 22 88 d6 0e |..0. ...|...\"...|
|00003e50| 14 21 88 29 82 d5 01 30 | d7 20 cb 1e 18 1e 19 8a |.!.)...0|. ......|
|00003e60| 65 62 88 da 0e 19 cb db | 23 85 7c 01 30 dc 20 89 |eb......|#.|.0. .|
|00003e70| 16 18 3f 3f 16 0d 0e 18 | 83 be 01 30 0e 18 62 88 |..??....|...0..b.|
|00003e80| d3 20 1e 14 c7 d5 0e 14 | 5c 22 88 d6 0e 14 21 29 |. ......|\"....!)|
|00003e90| 0e 5c 66 42 16 5c 66 0e | 18 62 88 dd 79 88 0e 18 |.\fB.\f.|.b..y...|
|00003ea0| cb 89 93 88 da 0e 19 cb | db 23 85 b8 01 30 dc 20 |........|.#...0. |
|00003eb0| 89 16 18 84 88 01 30 29 | 0e 0d 84 d4 01 30 d3 20 |......0)|.....0. |
|00003ec0| 1e 14 c7 d5 0e 14 5c 22 | 88 d6 0e 14 21 88 29 2a |......\"|....!.)*|
|00003ed0| 2c de 20 88 de 20 88 c7 | df 21 87 22 20 2e 20 5b |,. .. ..|.!." . [|
|00003ee0| 74 65 73 74 2d 66 6f 72 | 2d 73 75 62 64 69 72 20 |test-for|-subdir |
|00003ef0| 64 69 72 65 64 2d 67 65 | 74 2d 73 75 62 64 69 72 |dired-ge|t-subdir|
|00003f00| 20 64 69 72 65 64 2d 69 | 6e 73 65 72 74 2d 73 75 | dired-i|nsert-su|
|00003f10| 62 64 69 72 20 61 72 67 | 20 72 65 61 64 2d 73 74 |bdir arg| read-st|
|00003f20| 72 69 6e 67 20 22 53 77 | 69 74 63 68 65 73 20 66 |ring "Sw|itches f|
|00003f30| 6f 72 20 6c 69 73 74 69 | 6e 67 3a 20 22 20 64 69 |or listi|ng: " di|
|00003f40| 72 65 64 2d 61 63 74 75 | 61 6c 2d 73 77 69 74 63 |red-actu|al-switc|
|00003f50| 68 65 73 20 6d 65 73 73 | 61 67 65 20 22 52 65 64 |hes mess|age "Red|
|00003f60| 69 73 70 6c 61 79 69 6e | 67 2e 2e 2e 22 20 64 69 |isplayin|g..." di|
|00003f70| 72 65 64 2d 75 6e 63 61 | 63 68 65 20 64 69 72 65 |red-unca|che dire|
|00003f80| 64 2d 64 69 72 65 63 74 | 6f 72 79 20 6e 69 6c 20 |d-direct|ory nil |
|00003f90| 72 65 73 75 6c 74 73 20 | 66 6f 75 6e 64 20 63 61 |results |found ca|
|00003fa0| 73 65 2d 66 6f 6c 64 2d | 73 65 61 72 63 68 20 62 |se-fold-|search b|
|00003fb0| 75 66 66 65 72 2d 72 65 | 61 64 2d 6f 6e 6c 79 20 |uffer-re|ad-only |
|00003fc0| 64 69 72 65 64 2d 72 65 | 70 65 61 74 2d 6f 76 65 |dired-re|peat-ove|
|00003fd0| 72 2d 6c 69 6e 65 73 20 | 23 5b 6e 69 6c 20 22 c0 |r-lines |#[nil ".|
|00003fe0| 20 19 c2 c3 09 5c 22 88 | c4 09 21 29 0d 42 89 15 | ....\".|..!).B..|
|00003ff0| 87 22 20 5b 64 69 72 65 | 64 2d 67 65 74 2d 66 69 |." [dire|d-get-fi|
|00004000| 6c 65 6e 61 6d 65 20 66 | 6e 61 6d 65 20 6d 65 73 |lename f|name mes|
|00004010| 73 61 67 65 20 22 52 65 | 64 69 73 70 6c 61 79 69 |sage "Re|displayi|
|00004020| 6e 67 2e 2e 2e 20 25 73 | 22 20 64 69 72 65 64 2d |ng... %s|" dired-|
|00004030| 75 70 64 61 74 65 2d 66 | 69 6c 65 2d 6c 69 6e 65 |update-f|ile-line|
|00004040| 20 72 65 73 75 6c 74 73 | 5d 20 33 5d 20 30 20 64 | results|] 3] 0 d|
|00004050| 69 72 65 64 2d 67 65 74 | 2d 66 69 6c 65 6e 61 6d |ired-get|-filenam|
|00004060| 65 20 66 6e 61 6d 65 20 | 22 52 65 64 69 73 70 6c |e fname |"Redispl|
|00004070| 61 79 69 6e 67 2e 2e 2e | 20 25 73 22 20 64 69 72 |aying...| %s" dir|
|00004080| 65 64 2d 75 70 64 61 74 | 65 2d 66 69 6c 65 2d 6c |ed-updat|e-file-l|
|00004090| 69 6e 65 20 64 69 72 65 | 64 2d 6d 61 72 6b 65 72 |ine dire|d-marker|
|000040a0| 2d 72 65 67 65 78 70 20 | 6e 65 78 74 2d 70 6f 73 |-regexp |next-pos|
|000040b0| 69 74 69 6f 6e 20 72 65 | 67 65 78 70 20 72 65 2d |ition re|gexp re-|
|000040c0| 73 65 61 72 63 68 2d 66 | 6f 72 77 61 72 64 20 74 |search-f|orward t|
|000040d0| 20 70 6f 69 6e 74 2d 6d | 61 72 6b 65 72 20 31 20 | point-m|arker 1 |
|000040e0| 64 69 72 65 64 2d 6d 6f | 76 65 2d 74 6f 2d 66 69 |dired-mo|ve-to-fi|
|000040f0| 6c 65 6e 61 6d 65 20 22 | 52 65 64 69 73 70 6c 61 |lename "|Redispla|
|00004100| 79 69 6e 67 2e 2e 2e 64 | 6f 6e 65 22 5d 29 1f 28 |ying...d|one"]).(|
|00004110| 23 24 20 2e 20 31 35 38 | 33 37 29 20 6e 69 6c 20 |#$ . 158|37) nil |
|00004120| 36 20 28 23 24 20 2e 20 | 31 35 35 38 38 29 20 22 |6 (#$ . |15588) "|
|00004130| 50 5c 6e 70 22 5d 29 0a | 28 64 65 66 61 6c 69 61 |P\np"]).|(defalia|
|00004140| 73 20 27 64 69 72 65 64 | 2d 75 70 64 61 74 65 2d |s 'dired|-update-|
|00004150| 66 69 6c 65 2d 6c 69 6e | 65 20 23 5b 28 66 69 6c |file-lin|e #[(fil|
|00004160| 65 29 20 23 40 31 35 36 | 20 28 22 c0 79 88 67 60 |e) #@156| (".y.g`|
|00004170| c1 1a 1b 1c 60 c5 79 88 | 60 7c 88 0e 06 83 5c 22 |....`.y.|`|....\"|
|00004180| 01 30 c7 0e 06 21 88 c8 | 0b 89 54 c9 5c 66 24 88 |.0...!..|..T.\f$.|
|00004190| 2b ca 20 87 22 20 2e 20 | 5b 30 20 6e 69 6c 20 62 |+. ." . |[0 nil b|
|000041a0| 75 66 66 65 72 2d 72 65 | 61 64 2d 6f 6e 6c 79 20 |uffer-re|ad-only |
|000041b0| 6f 70 6f 69 6e 74 20 63 | 68 61 72 20 31 20 66 69 |opoint c|har 1 fi|
|000041c0| 6c 65 20 64 69 72 65 64 | 2d 61 64 64 2d 65 6e 74 |le dired|-add-ent|
|000041d0| 72 79 20 73 75 62 73 74 | 2d 63 68 61 72 2d 69 6e |ry subst|-char-in|
|000041e0| 2d 72 65 67 69 6f 6e 20 | 33 32 20 64 69 72 65 64 |-region |32 dired|
|000041f0| 2d 6d 6f 76 65 2d 74 6f | 2d 66 69 6c 65 6e 61 6d |-move-to|-filenam|
|00004200| 65 5d 29 1f 28 23 24 20 | 2e 20 31 36 37 34 35 29 |e]).(#$ |. 16745)|
|00004210| 20 6e 69 6c 20 35 5d 29 | 0a 28 64 65 66 61 6c 69 | nil 5])|.(defali|
|00004220| 61 73 20 27 64 69 72 65 | 64 2d 66 75 6e 2d 69 6e |as 'dire|d-fun-in|
|00004230| 2d 61 6c 6c 2d 62 75 66 | 66 65 72 73 20 23 5b 28 |-all-buf|fers #[(|
|00004240| 64 69 72 65 63 74 6f 72 | 79 20 66 75 6e 20 26 72 |director|y fun &r|
|00004250| 65 73 74 20 61 72 67 73 | 29 20 23 40 32 30 34 20 |est args|) #@204 |
|00004260| 28 22 c0 c1 5c 6e 21 21 | 70 c3 89 1c 1d 1e 06 1e |("..\n!!|p.......|
|00004270| 07 0e 07 83 34 01 30 0e | 07 40 15 0e 07 41 16 07 |....4.0.|.@...A..|
|00004280| c8 8e 0d 71 88 c9 0e 5c | 6e 0e 0b 5c 22 83 30 01 |...q...\|n..\".0.|
|00004290| 30 cc 0d 21 5c 66 42 14 | 29 82 0e 01 30 5c 66 2c |0..!\fB.|)...0\f,|
|000042a0| 87 22 20 2e 20 5b 64 69 | 72 65 64 2d 62 75 66 66 |." . [di|red-buff|
|000042b0| 65 72 73 2d 66 6f 72 2d | 64 69 72 20 65 78 70 61 |ers-for-|dir expa|
|000042c0| 6e 64 2d 66 69 6c 65 2d | 6e 61 6d 65 20 64 69 72 |nd-file-|name dir|
|000042d0| 65 63 74 6f 72 79 20 6e | 69 6c 20 73 75 63 63 65 |ectory n|il succe|
|000042e0| 73 73 2d 6c 69 73 74 20 | 62 75 66 20 6f 62 75 66 |ss-list |buf obuf|
|000042f0| 20 62 75 66 2d 6c 69 73 | 74 20 28 28 73 65 74 2d | buf-lis|t ((set-|
|00004300| 62 75 66 66 65 72 20 6f | 62 75 66 29 29 20 61 70 |buffer o|buf)) ap|
|00004310| 70 6c 79 20 66 75 6e 20 | 61 72 67 73 20 62 75 66 |ply fun |args buf|
|00004320| 66 65 72 2d 6e 61 6d 65 | 5d 29 1f 28 23 24 20 2e |fer-name|]).(#$ .|
|00004330| 20 31 36 39 39 32 29 20 | 6e 69 6c 20 34 5d 29 0a | 16992) |nil 4]).|
|00004340| 28 64 65 66 61 6c 69 61 | 73 20 27 64 69 72 65 64 |(defalia|s 'dired|
|00004350| 2d 61 64 64 2d 66 69 6c | 65 20 23 5b 28 66 69 6c |-add-fil|e #[(fil|
|00004360| 65 6e 61 6d 65 20 26 6f | 70 74 69 6f 6e 61 6c 20 |ename &o|ptional |
|00004370| 6d 61 72 6b 65 72 2d 63 | 68 61 72 29 20 23 40 31 |marker-c|har) #@1|
|00004380| 30 34 20 28 22 c0 c1 5c | 6e 21 c3 5c 6e 5c 66 24 |04 ("..\|n!.\n\f$|
|00004390| 87 22 20 2e 20 5b 64 69 | 72 65 64 2d 66 75 6e 2d |." . [di|red-fun-|
|000043a0| 69 6e 2d 61 6c 6c 2d 62 | 75 66 66 65 72 73 20 66 |in-all-b|uffers f|
|000043b0| 69 6c 65 2d 6e 61 6d 65 | 2d 64 69 72 65 63 74 6f |ile-name|-directo|
|000043c0| 72 79 20 66 69 6c 65 6e | 61 6d 65 20 64 69 72 65 |ry filen|ame dire|
|000043d0| 64 2d 61 64 64 2d 65 6e | 74 72 79 20 6d 61 72 6b |d-add-en|try mark|
|000043e0| 65 72 2d 63 68 61 72 5d | 29 1f 28 23 24 20 2e 20 |er-char]|).(#$ . |
|000043f0| 31 37 32 38 33 29 20 6e | 69 6c 20 35 5d 29 0a 28 |17283) n|il 5]).(|
|00004400| 64 65 66 61 6c 69 61 73 | 20 27 64 69 72 65 64 2d |defalias| 'dired-|
|00004410| 61 64 64 2d 65 6e 74 72 | 79 20 23 5b 28 66 69 6c |add-entr|y #[(fil|
|00004420| 65 6e 61 6d 65 20 26 6f | 70 74 69 6f 6e 61 6c 20 |ename &o|ptional |
|00004430| 6d 61 72 6b 65 72 2d 63 | 68 61 72 29 20 23 40 38 |marker-c|har) #@8|
|00004440| 39 37 20 28 22 c0 09 21 | 11 60 c2 20 09 c3 09 21 |97 ("..!|.`. ...!|
|00004450| c4 1d 1e 06 1e 07 1e 08 | 1e 09 ca 09 21 11 cb cc |........|....!...|
|00004460| 8d 89 15 83 25 01 30 0e | 09 62 88 0d 2d 3f 87 22 |....%.0.|.b..-?."|
|00004470| 20 2e 20 5b 64 69 72 65 | 63 74 6f 72 79 2d 66 69 | . [dire|ctory-fi|
|00004480| 6c 65 2d 6e 61 6d 65 20 | 66 69 6c 65 6e 61 6d 65 |le-name |filename|
|00004490| 20 64 69 72 65 64 2d 63 | 75 72 72 65 6e 74 2d 64 | dired-c|urrent-d|
|000044a0| 69 72 65 63 74 6f 72 79 | 20 66 69 6c 65 2d 6e 61 |irectory| file-na|
|000044b0| 6d 65 2d 64 69 72 65 63 | 74 6f 72 79 20 6e 69 6c |me-direc|tory nil|
|000044c0| 20 72 65 61 73 6f 6e 20 | 64 69 72 65 63 74 6f 72 | reason |director|
|000044d0| 79 20 6f 72 69 67 2d 66 | 69 6c 65 2d 6e 61 6d 65 |y orig-f|ile-name|
|000044e0| 20 63 75 72 2d 64 69 72 | 20 6f 70 6f 69 6e 74 20 | cur-dir| opoint |
|000044f0| 66 69 6c 65 2d 6e 61 6d | 65 2d 6e 6f 6e 64 69 72 |file-nam|e-nondir|
|00004500| 65 63 74 6f 72 79 20 6e | 6f 74 2d 66 6f 75 6e 64 |ectory n|ot-found|
|00004510| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 08 09 98 | (byte-c|ode "...|
|00004520| 83 27 01 30 c2 c3 77 88 | 67 c4 3d 83 13 01 30 c5 |.'.0..w.|g.=...0.|
|00004530| 20 88 c6 09 21 1e 07 60 | 0e 07 57 83 23 01 30 0e | ...!..`|..W.#.0.|
|00004540| 07 62 88 29 82 41 01 30 | c8 08 21 83 3c 01 30 c9 |.b.).A.0|..!.<.0.|
|00004550| ca 21 83 36 01 30 c5 20 | 88 cb 20 88 82 41 01 30 |.!.6.0. |.. ..A.0|
|00004560| cc cd ce 5c 22 88 c3 89 | 1e 0f 1e 10 d1 79 88 60 |...\"...|.....y.`|
|00004570| 16 0f d2 0e 13 21 88 08 | 1e 14 d5 0e 16 0e 17 d8 |.....!..|........|
|00004580| 50 5c 22 88 29 0e 0f 62 | 88 d9 da 21 1e 1b dc 0e |P\".)..b|...!....|
|00004590| 1b 21 83 83 01 30 c3 7f | 88 dd 0e 1b 47 5b 21 88 |.!...0..|....G[!.|
|000045a0| 0e 16 63 88 de 75 88 82 | 86 01 30 de 79 88 29 df |..c..u..|..0.y.).|
|000045b0| 0e 0f 60 5c 22 88 e0 79 | 88 0e 21 83 a8 01 30 8a |..`\"..y|..!...0.|
|000045c0| 8c d1 79 88 60 8a de 79 | 88 60 29 7d 88 e2 e1 21 |..y.`..y|.`)}...!|
|000045d0| 88 2a e3 20 88 2a c3 87 | 22 20 5b 64 69 72 65 63 |.*. .*..|" [direc|
|000045e0| 74 6f 72 79 20 63 75 72 | 2d 64 69 72 20 22 5e 0d |tory cur|-dir "^.|
|000045f0| 5c 6e 22 20 6e 69 6c 20 | 31 33 20 64 69 72 65 64 |\n" nil |13 dired|
|00004600| 2d 75 6e 68 69 64 65 2d | 73 75 62 64 69 72 20 64 |-unhide-|subdir d|
|00004610| 69 72 65 64 2d 61 66 74 | 65 72 2d 73 75 62 64 69 |ired-aft|er-subdi|
|00004620| 72 2d 67 61 72 62 61 67 | 65 20 70 20 64 69 72 65 |r-garbag|e p dire|
|00004630| 64 2d 67 6f 74 6f 2d 73 | 75 62 64 69 72 20 6c 6f |d-goto-s|ubdir lo|
|00004640| 6f 6b 69 6e 67 2d 61 74 | 20 22 0d 22 20 64 69 72 |oking-at| "." dir|
|00004650| 65 64 2d 67 6f 74 6f 2d | 6e 65 78 74 2d 6e 6f 6e |ed-goto-|next-non|
|00004660| 74 72 69 76 69 61 6c 2d | 66 69 6c 65 20 74 68 72 |trivial-|file thr|
|00004670| 6f 77 20 6e 6f 74 2d 66 | 6f 75 6e 64 20 22 53 75 |ow not-f|ound "Su|
|00004680| 62 64 69 72 20 6e 6f 74 | 20 66 6f 75 6e 64 22 20 |bdir not| found" |
|00004690| 6f 70 6f 69 6e 74 20 62 | 75 66 66 65 72 2d 72 65 |opoint b|uffer-re|
|000046a0| 61 64 2d 6f 6e 6c 79 20 | 30 20 64 69 72 65 64 2d |ad-only |0 dired-|
|000046b0| 61 64 64 2d 65 6e 74 72 | 79 2d 64 6f 2d 69 6e 64 |add-entr|y-do-ind|
|000046c0| 65 6e 74 61 74 69 6f 6e | 20 6d 61 72 6b 65 72 2d |entation| marker-|
|000046d0| 63 68 61 72 20 64 65 66 | 61 75 6c 74 2d 64 69 72 |char def|ault-dir|
|000046e0| 65 63 74 6f 72 79 20 69 | 6e 73 65 72 74 2d 64 69 |ectory i|nsert-di|
|000046f0| 72 65 63 74 6f 72 79 20 | 66 69 6c 65 6e 61 6d 65 |rectory |filename|
|00004700| 20 64 69 72 65 64 2d 61 | 63 74 75 61 6c 2d 73 77 | dired-a|ctual-sw|
|00004710| 69 74 63 68 65 73 20 22 | 64 22 20 64 69 72 65 64 |itches "|d" dired|
|00004720| 2d 67 65 74 2d 66 69 6c | 65 6e 61 6d 65 20 6e 6f |-get-fil|ename no|
|00004730| 2d 64 69 72 20 69 6e 73 | 65 72 74 65 64 2d 6e 61 |-dir ins|erted-na|
|00004740| 6d 65 20 66 69 6c 65 2d | 6e 61 6d 65 2d 64 69 72 |me file-|name-dir|
|00004750| 65 63 74 6f 72 79 20 64 | 65 6c 65 74 65 2d 63 68 |ectory d|elete-ch|
|00004760| 61 72 20 31 20 64 69 72 | 65 64 2d 69 6e 73 65 72 |ar 1 dir|ed-inser|
|00004770| 74 2d 73 65 74 2d 70 72 | 6f 70 65 72 74 69 65 73 |t-set-pr|operties|
|00004780| 20 2d 31 20 64 69 72 65 | 64 2d 61 66 74 65 72 2d | -1 dire|d-after-|
|00004790| 72 65 61 64 69 6e 2d 68 | 6f 6f 6b 20 72 75 6e 2d |readin-h|ook run-|
|000047a0| 68 6f 6f 6b 73 20 64 69 | 72 65 64 2d 6d 6f 76 65 |hooks di|red-move|
|000047b0| 2d 74 6f 2d 66 69 6c 65 | 6e 61 6d 65 5d 20 34 29 |-to-file|name] 4)|
|000047c0| 5d 29 1f 28 23 24 20 2e | 20 31 37 34 37 35 29 20 |]).(#$ .| 17475) |
|000047d0| 6e 69 6c 20 36 5d 29 0a | 28 64 65 66 61 6c 69 61 |nil 6]).|(defalia|
|000047e0| 73 20 27 64 69 72 65 64 | 2d 61 64 64 2d 65 6e 74 |s 'dired|-add-ent|
|000047f0| 72 79 2d 64 6f 2d 69 6e | 64 65 6e 74 61 74 69 6f |ry-do-in|dentatio|
|00004800| 6e 20 23 5b 28 6d 61 72 | 6b 65 72 2d 63 68 61 72 |n #[(mar|ker-char|
|00004810| 29 20 23 40 36 39 20 28 | 22 08 83 11 01 30 08 a8 |) #@69 (|"....0..|
|00004820| 83 0d 01 30 08 82 12 01 | 30 09 82 12 01 30 c2 c2 |...0....|0....0..|
|00004830| b1 02 87 22 20 2e 20 5b | 6d 61 72 6b 65 72 2d 63 |..." . [|marker-c|
|00004840| 68 61 72 20 64 69 72 65 | 64 2d 6d 61 72 6b 65 72 |har dire|d-marker|
|00004850| 2d 63 68 61 72 20 33 32 | 5d 29 1f 28 23 24 20 2e |-char 32|]).(#$ .|
|00004860| 20 31 38 34 35 35 29 20 | 6e 69 6c 20 32 5d 29 0a | 18455) |nil 2]).|
|00004870| 28 64 65 66 61 6c 69 61 | 73 20 27 64 69 72 65 64 |(defalia|s 'dired|
|00004880| 2d 61 66 74 65 72 2d 73 | 75 62 64 69 72 2d 67 61 |-after-s|ubdir-ga|
|00004890| 72 62 61 67 65 20 23 5b | 28 64 69 72 29 20 23 40 |rbage #[|(dir) #@|
|000048a0| 31 32 30 20 28 22 8a c0 | 09 21 84 0b 01 30 c2 c3 |120 ("..|.!...0..|
|000048b0| 21 88 c4 79 88 6c 84 1d | 01 30 c5 20 84 1d 01 30 |!..y.l..|.0. ...0|
|000048c0| c4 79 88 82 0e 01 30 60 | 29 87 22 20 2e 20 5b 64 |.y....0`|)." . [d|
|000048d0| 69 72 65 64 2d 67 6f 74 | 6f 2d 73 75 62 64 69 72 |ired-got|o-subdir|
|000048e0| 20 64 69 72 20 65 72 72 | 6f 72 20 22 54 68 69 73 | dir err|or "This|
|000048f0| 20 63 61 6e 6e 6f 74 20 | 68 61 70 70 65 6e 22 20 | cannot |happen" |
|00004900| 31 20 64 69 72 65 64 2d | 6d 6f 76 65 2d 74 6f 2d |1 dired-|move-to-|
|00004910| 66 69 6c 65 6e 61 6d 65 | 5d 29 1f 28 23 24 20 2e |filename|]).(#$ .|
|00004920| 20 31 38 35 39 36 29 20 | 6e 69 6c 20 32 5d 29 0a | 18596) |nil 2]).|
|00004930| 28 64 65 66 61 6c 69 61 | 73 20 27 64 69 72 65 64 |(defalia|s 'dired|
|00004940| 2d 72 65 6d 6f 76 65 2d | 66 69 6c 65 20 23 5b 28 |-remove-|file #[(|
|00004950| 66 69 6c 65 29 20 23 40 | 38 39 20 28 22 c0 c1 5c |file) #@|89 ("..\|
|00004960| 6e 21 c3 5c 6e 23 87 22 | 20 2e 20 5b 64 69 72 65 |n!.\n#."| . [dire|
|00004970| 64 2d 66 75 6e 2d 69 6e | 2d 61 6c 6c 2d 62 75 66 |d-fun-in|-all-buf|
|00004980| 66 65 72 73 20 66 69 6c | 65 2d 6e 61 6d 65 2d 64 |fers fil|e-name-d|
|00004990| 69 72 65 63 74 6f 72 79 | 20 66 69 6c 65 20 64 69 |irectory| file di|
|000049a0| 72 65 64 2d 72 65 6d 6f | 76 65 2d 65 6e 74 72 79 |red-remo|ve-entry|
|000049b0| 5d 29 1f 28 23 24 20 2e | 20 31 38 37 37 39 29 20 |]).(#$ .| 18779) |
|000049c0| 6e 69 6c 20 34 5d 29 0a | 28 64 65 66 61 6c 69 61 |nil 4]).|(defalia|
|000049d0| 73 20 27 64 69 72 65 64 | 2d 72 65 6d 6f 76 65 2d |s 'dired|-remove-|
|000049e0| 65 6e 74 72 79 20 23 5b | 28 66 69 6c 65 29 20 23 |entry #[|(file) #|
|000049f0| 40 38 30 20 28 22 8a c0 | 09 21 85 15 01 30 c2 1b |@80 ("..|.!...0..|
|00004a00| c4 79 88 60 8a c5 79 88 | 60 29 7c 29 29 87 22 20 |.y.`..y.|`)|))." |
|00004a10| 2e 20 5b 64 69 72 65 64 | 2d 67 6f 74 6f 2d 66 69 |. [dired|-goto-fi|
|00004a20| 6c 65 20 66 69 6c 65 20 | 6e 69 6c 20 62 75 66 66 |le file |nil buff|
|00004a30| 65 72 2d 72 65 61 64 2d | 6f 6e 6c 79 20 30 20 31 |er-read-|only 0 1|
|00004a40| 5d 29 1f 28 23 24 20 2e | 20 31 38 39 33 32 29 20 |]).(#$ .| 18932) |
|00004a50| 6e 69 6c 20 32 5d 29 0a | 28 64 65 66 61 6c 69 61 |nil 2]).|(defalia|
|00004a60| 73 20 27 64 69 72 65 64 | 2d 72 65 6c 69 73 74 2d |s 'dired|-relist-|
|00004a70| 66 69 6c 65 20 23 5b 28 | 66 69 6c 65 29 20 23 40 |file #[(|file) #@|
|00004a80| 38 39 20 28 22 c0 c1 5c | 6e 21 c3 5c 6e 23 87 22 |89 ("..\|n!.\n#."|
|00004a90| 20 2e 20 5b 64 69 72 65 | 64 2d 66 75 6e 2d 69 6e | . [dire|d-fun-in|
|00004aa0| 2d 61 6c 6c 2d 62 75 66 | 66 65 72 73 20 66 69 6c |-all-buf|fers fil|
|00004ab0| 65 2d 6e 61 6d 65 2d 64 | 69 72 65 63 74 6f 72 79 |e-name-d|irectory|
|00004ac0| 20 66 69 6c 65 20 64 69 | 72 65 64 2d 72 65 6c 69 | file di|red-reli|
|00004ad0| 73 74 2d 65 6e 74 72 79 | 5d 29 1f 28 23 24 20 2e |st-entry|]).(#$ .|
|00004ae0| 20 31 39 30 37 35 29 20 | 6e 69 6c 20 34 5d 29 0a | 19075) |nil 4]).|
|00004af0| 28 64 65 66 61 6c 69 61 | 73 20 27 64 69 72 65 64 |(defalia|s 'dired|
|00004b00| 2d 72 65 6c 69 73 74 2d | 65 6e 74 72 79 20 23 5b |-relist-|entry #[|
|00004b10| 28 66 69 6c 65 29 20 23 | 40 31 35 30 20 28 22 c0 |(file) #|@150 (".|
|00004b20| 89 19 1a 8a c3 5c 66 21 | 83 19 01 30 c5 79 88 67 |.....\f!|...0.y.g|
|00004b30| 11 60 8a c6 79 88 60 29 | 7c 88 c7 5c 66 21 14 c8 |.`..y.`)||..\f!..|
|00004b40| 5c 66 09 c9 3d 3f 85 27 | 01 30 09 5c 22 2b 87 22 |\f..=?.'|.0.\"+."|
|00004b50| 20 2e 20 5b 6e 69 6c 20 | 6d 61 72 6b 65 72 20 62 | . [nil |marker b|
|00004b60| 75 66 66 65 72 2d 72 65 | 61 64 2d 6f 6e 6c 79 20 |uffer-re|ad-only |
|00004b70| 64 69 72 65 64 2d 67 6f | 74 6f 2d 66 69 6c 65 20 |dired-go|to-file |
|00004b80| 66 69 6c 65 20 30 20 31 | 20 64 69 72 65 63 74 6f |file 0 1| directo|
|00004b90| 72 79 2d 66 69 6c 65 2d | 6e 61 6d 65 20 64 69 72 |ry-file-|name dir|
|00004ba0| 65 64 2d 61 64 64 2d 65 | 6e 74 72 79 20 33 32 5d |ed-add-e|ntry 32]|
|00004bb0| 29 1f 28 23 24 20 2e 20 | 31 39 32 32 39 29 20 6e |).(#$ . |19229) n|
|00004bc0| 69 6c 20 34 5d 29 0a 23 | 40 31 32 35 20 2a 4e 6f |il 4]).#|@125 *No|
|00004bd0| 6e 2d 6e 69 6c 20 69 66 | 20 44 69 72 65 64 20 73 |n-nil if| Dired s|
|00004be0| 68 6f 75 6c 64 20 61 73 | 6b 20 61 62 6f 75 74 20 |hould as|k about |
|00004bf0| 6d 61 6b 69 6e 67 20 62 | 61 63 6b 75 70 73 20 62 |making b|ackups b|
|00004c00| 65 66 6f 72 65 20 6f 76 | 65 72 77 72 69 74 69 6e |efore ov|erwritin|
|00004c10| 67 20 66 69 6c 65 73 2e | 0a 53 70 65 63 69 61 6c |g files.|.Special|
|00004c20| 20 76 61 6c 75 65 20 60 | 61 6c 77 61 79 73 27 20 | value `|always' |
|00004c30| 73 75 70 70 72 65 73 73 | 65 73 20 63 6f 6e 66 69 |suppress|es confi|
|00004c40| 72 6d 61 74 69 6f 6e 2e | 1f 0a 28 64 65 66 76 61 |rmation.|..(defva|
|00004c50| 72 20 64 69 72 65 64 2d | 62 61 63 6b 75 70 2d 6f |r dired-|backup-o|
|00004c60| 76 65 72 77 72 69 74 65 | 20 6e 69 6c 20 28 23 24 |verwrite| nil (#$|
|00004c70| 20 2e 20 2d 31 39 34 30 | 35 29 29 0a 28 62 79 74 | . -1940|5)).(byt|
|00004c80| 65 2d 63 6f 64 65 20 22 | c0 09 42 11 c0 87 22 20 |e-code "|..B..." |
|00004c90| 5b 64 69 72 65 64 2d 6f | 76 65 72 77 72 69 74 65 |[dired-o|verwrite|
|00004ca0| 2d 63 6f 6e 66 69 72 6d | 65 64 20 63 75 72 72 65 |-confirm|ed curre|
|00004cb0| 6e 74 2d 6c 6f 61 64 2d | 6c 69 73 74 5d 20 32 29 |nt-load-|list] 2)|
|00004cc0| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 64 69 72 65 |.(defali|as 'dire|
|00004cd0| 64 2d 68 61 6e 64 6c 65 | 2d 6f 76 65 72 77 72 69 |d-handle|-overwri|
|00004ce0| 74 65 20 23 5b 28 74 6f | 29 20 23 40 32 37 31 20 |te #[(to|) #@271 |
|00004cf0| 28 22 c0 19 5c 6e 85 2c | 01 30 0b 85 2c 01 30 c4 |("..\n.,|.0..,.0.|
|00004d00| 0d 21 40 89 11 85 2c 01 | 30 5c 6e c6 3d 84 23 01 |.!@...,.|0\n.=.#.|
|00004d10| 30 c7 c8 c9 ca 0d 5c 22 | 5c 22 85 2c 01 30 cb 0d |0.....\"|\".,.0..|
|00004d20| 09 cc 23 88 cd 09 21 29 | 87 22 20 2e 20 5b 6e 69 |..#...!)|." . [ni|
|00004d30| 6c 20 62 61 63 6b 75 70 | 20 64 69 72 65 64 2d 62 |l backup| dired-b|
|00004d40| 61 63 6b 75 70 2d 6f 76 | 65 72 77 72 69 74 65 20 |ackup-ov|erwrite |
|00004d50| 64 69 72 65 64 2d 6f 76 | 65 72 77 72 69 74 65 2d |dired-ov|erwrite-|
|00004d60| 63 6f 6e 66 69 72 6d 65 | 64 20 66 69 6e 64 2d 62 |confirme|d find-b|
|00004d70| 61 63 6b 75 70 2d 66 69 | 6c 65 2d 6e 61 6d 65 20 |ackup-fi|le-name |
|00004d80| 74 6f 20 61 6c 77 61 79 | 73 20 64 69 72 65 64 2d |to alway|s dired-|
|00004d90| 71 75 65 72 79 20 6f 76 | 65 72 77 72 69 74 65 2d |query ov|erwrite-|
|00004da0| 62 61 63 6b 75 70 2d 71 | 75 65 72 79 20 66 6f 72 |backup-q|uery for|
|00004db0| 6d 61 74 20 22 4d 61 6b | 65 20 62 61 63 6b 75 70 |mat "Mak|e backup|
|00004dc0| 20 66 6f 72 20 65 78 69 | 73 74 69 6e 67 20 66 69 | for exi|sting fi|
|00004dd0| 6c 65 20 60 25 73 27 3f | 20 22 20 72 65 6e 61 6d |le `%s'?| " renam|
|00004de0| 65 2d 66 69 6c 65 20 30 | 20 64 69 72 65 64 2d 72 |e-file 0| dired-r|
|00004df0| 65 6c 69 73 74 2d 65 6e | 74 72 79 5d 29 1f 28 23 |elist-en|try]).(#|
|00004e00| 24 20 2e 20 31 39 36 39 | 36 29 20 6e 69 6c 20 35 |$ . 1969|6) nil 5|
|00004e10| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 64 69 |]).(defa|lias 'di|
|00004e20| 72 65 64 2d 63 6f 70 79 | 2d 66 69 6c 65 20 23 5b |red-copy|-file #[|
|00004e30| 28 66 72 6f 6d 20 74 6f | 20 6f 6b 2d 66 6c 61 67 |(from to| ok-flag|
|00004e40| 29 20 23 40 39 36 20 28 | 22 c0 09 21 88 c2 0b 09 |) #@96 (|"..!....|
|00004e50| 5c 66 0d 24 87 22 20 2e | 20 5b 64 69 72 65 64 2d |\f.$." .| [dired-|
|00004e60| 68 61 6e 64 6c 65 2d 6f | 76 65 72 77 72 69 74 65 |handle-o|verwrite|
|00004e70| 20 74 6f 20 63 6f 70 79 | 2d 66 69 6c 65 20 66 72 | to copy|-file fr|
|00004e80| 6f 6d 20 6f 6b 2d 66 6c | 61 67 20 64 69 72 65 64 |om ok-fl|ag dired|
|00004e90| 2d 63 6f 70 79 2d 70 72 | 65 73 65 72 76 65 2d 74 |-copy-pr|eserve-t|
|00004ea0| 69 6d 65 5d 29 1f 28 23 | 24 20 2e 20 32 30 30 33 |ime]).(#|$ . 2003|
|00004eb0| 39 29 20 6e 69 6c 20 35 | 5d 29 0a 28 64 65 66 61 |9) nil 5|]).(defa|
|00004ec0| 6c 69 61 73 20 27 64 69 | 72 65 64 2d 72 65 6e 61 |lias 'di|red-rena|
|00004ed0| 6d 65 2d 66 69 6c 65 20 | 23 5b 28 66 72 6f 6d 20 |me-file |#[(from |
|00004ee0| 74 6f 20 6f 6b 2d 66 6c | 61 67 29 20 23 40 32 33 |to ok-fl|ag) #@23|
|00004ef0| 33 20 28 22 c0 09 21 88 | c2 0b 09 5c 66 23 88 c5 |3 ("..!.|...\f#..|
|00004f00| 0b 21 83 24 01 30 8a c5 | 0b 21 71 88 c6 20 1e 07 |.!.$.0..|.!q.. ..|
|00004f10| c8 09 21 88 c9 0e 07 21 | 88 2a ca 0b 21 88 cb 0b |..!....!|.*..!...|
|00004f20| 09 5c 22 87 22 20 2e 20 | 5b 64 69 72 65 64 2d 68 |.\"." . |[dired-h|
|00004f30| 61 6e 64 6c 65 2d 6f 76 | 65 72 77 72 69 74 65 20 |andle-ov|erwrite |
|00004f40| 74 6f 20 72 65 6e 61 6d | 65 2d 66 69 6c 65 20 66 |to renam|e-file f|
|00004f50| 72 6f 6d 20 6f 6b 2d 66 | 6c 61 67 20 67 65 74 2d |rom ok-f|lag get-|
|00004f60| 66 69 6c 65 2d 62 75 66 | 66 65 72 20 62 75 66 66 |file-buf|fer buff|
|00004f70| 65 72 2d 6d 6f 64 69 66 | 69 65 64 2d 70 20 6d 6f |er-modif|ied-p mo|
|00004f80| 64 66 6c 61 67 20 73 65 | 74 2d 76 69 73 69 74 65 |dflag se|t-visite|
|00004f90| 64 2d 66 69 6c 65 2d 6e | 61 6d 65 20 73 65 74 2d |d-file-n|ame set-|
|00004fa0| 62 75 66 66 65 72 2d 6d | 6f 64 69 66 69 65 64 2d |buffer-m|odified-|
|00004fb0| 70 20 64 69 72 65 64 2d | 72 65 6d 6f 76 65 2d 66 |p dired-|remove-f|
|00004fc0| 69 6c 65 20 64 69 72 65 | 64 2d 72 65 6e 61 6d 65 |ile dire|d-rename|
|00004fd0| 2d 73 75 62 64 69 72 5d | 29 1f 28 23 24 20 2e 20 |-subdir]|).(#$ . |
|00004fe0| 32 30 32 31 30 29 20 6e | 69 6c 20 34 5d 29 0a 28 |20210) n|il 4]).(|
|00004ff0| 64 65 66 61 6c 69 61 73 | 20 27 64 69 72 65 64 2d |defalias| 'dired-|
|00005000| 72 65 6e 61 6d 65 2d 73 | 75 62 64 69 72 20 23 5b |rename-s|ubdir #[|
|00005010| 28 66 72 6f 6d 2d 64 69 | 72 20 74 6f 2d 64 69 72 |(from-di|r to-dir|
|00005020| 29 20 23 40 34 30 35 20 | 28 22 c0 09 21 11 c0 5c |) #@405 |("..!..\|
|00005030| 6e 21 12 c3 09 c4 09 5c | 6e 24 88 c5 09 21 c6 20 |n!.....\|n$...!. |
|00005040| 1e 07 1e 08 0e 07 85 57 | 01 30 8a 0e 07 40 71 88 |.......W|.0...@q.|
|00005050| 0e 09 83 4c 01 30 ca 0e | 09 0e 08 5c 22 83 4c 01 |...L.0..|...\".L.|
|00005060| 30 cb 20 cc cd ce 09 21 | 50 5c 6e 0e 09 23 1e 0f |0. ....!|P\n..#..|
|00005070| 1e 10 d1 0e 0f 21 88 d2 | 0e 10 21 88 2a 29 0e 07 |.....!..|..!.*)..|
|00005080| 41 89 16 07 84 1d 01 30 | d3 2a 87 22 20 2e 20 5b |A......0|.*." . [|
|00005090| 66 69 6c 65 2d 6e 61 6d | 65 2d 61 73 2d 64 69 72 |file-nam|e-as-dir|
|000050a0| 65 63 74 6f 72 79 20 66 | 72 6f 6d 2d 64 69 72 20 |ectory f|rom-dir |
|000050b0| 74 6f 2d 64 69 72 20 64 | 69 72 65 64 2d 66 75 6e |to-dir d|ired-fun|
|000050c0| 2d 69 6e 2d 61 6c 6c 2d | 62 75 66 66 65 72 73 20 |-in-all-|buffers |
|000050d0| 64 69 72 65 64 2d 72 65 | 6e 61 6d 65 2d 73 75 62 |dired-re|name-sub|
|000050e0| 64 69 72 2d 31 20 65 78 | 70 61 6e 64 2d 66 69 6c |dir-1 ex|pand-fil|
|000050f0| 65 2d 6e 61 6d 65 20 62 | 75 66 66 65 72 2d 6c 69 |e-name b|uffer-li|
|00005100| 73 74 20 62 6c 69 73 74 | 20 65 78 70 61 6e 64 65 |st blist| expande|
|00005110| 64 2d 66 72 6f 6d 2d 64 | 69 72 20 62 75 66 66 65 |d-from-d|ir buffe|
|00005120| 72 2d 66 69 6c 65 2d 6e | 61 6d 65 20 64 69 72 65 |r-file-n|ame dire|
|00005130| 64 2d 69 6e 2d 74 68 69 | 73 2d 74 72 65 65 20 62 |d-in-thi|s-tree b|
|00005140| 75 66 66 65 72 2d 6d 6f | 64 69 66 69 65 64 2d 70 |uffer-mo|dified-p|
|00005150| 20 64 69 72 65 64 2d 72 | 65 70 6c 61 63 65 2d 69 | dired-r|eplace-i|
|00005160| 6e 2d 73 74 72 69 6e 67 | 20 22 5e 22 20 72 65 67 |n-string| "^" reg|
|00005170| 65 78 70 2d 71 75 6f 74 | 65 20 74 6f 2d 66 69 6c |exp-quot|e to-fil|
|00005180| 65 20 6d 6f 64 66 6c 61 | 67 20 73 65 74 2d 76 69 |e modfla|g set-vi|
|00005190| 73 69 74 65 64 2d 66 69 | 6c 65 2d 6e 61 6d 65 20 |sited-fi|le-name |
|000051a0| 73 65 74 2d 62 75 66 66 | 65 72 2d 6d 6f 64 69 66 |set-buff|er-modif|
|000051b0| 69 65 64 2d 70 20 6e 69 | 6c 5d 29 1f 28 23 24 20 |ied-p ni|l]).(#$ |
|000051c0| 2e 20 32 30 35 32 30 29 | 20 6e 69 6c 20 36 5d 29 |. 20520)| nil 6])|
|000051d0| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 64 69 72 65 |.(defali|as 'dire|
|000051e0| 64 2d 72 65 6e 61 6d 65 | 2d 73 75 62 64 69 72 2d |d-rename|-subdir-|
|000051f0| 31 20 23 5b 28 64 69 72 | 20 74 6f 29 20 23 40 33 |1 #[(dir| to) #@3|
|00005200| 36 36 20 28 22 c0 09 21 | 5c 6e c3 1c 1d 1e 06 0d |66 ("..!|\n......|
|00005210| 83 26 01 30 0d 40 14 0d | 41 15 c7 5c 66 40 0e 06 |.&.0.@..|A..\f@..|
|00005220| 5c 22 83 09 01 30 c8 5c | 66 09 0e 09 23 88 82 09 |\"...0.\|f...#...|
|00005230| 01 30 09 0e 5c 6e 9a 85 | 56 01 30 cb 09 21 88 0e |.0..\n..|V.0..!..|
|00005240| 09 16 5c 6e c0 cc 0e 0d | 21 0e 09 5c 22 16 0d cc |..\n....|!..\"...|
|00005250| ce 0e 0d 21 21 1e 0f d0 | 0e 0f 21 84 53 01 30 d1 |...!!...|..!.S.0.|
|00005260| 0e 0f 21 88 29 d2 20 2b | 87 22 20 2e 20 5b 65 78 |..!.). +|." . [ex|
|00005270| 70 61 6e 64 2d 66 69 6c | 65 2d 6e 61 6d 65 20 64 |pand-fil|e-name d|
|00005280| 69 72 20 64 69 72 65 64 | 2d 73 75 62 64 69 72 2d |ir dired|-subdir-|
|00005290| 61 6c 69 73 74 20 6e 69 | 6c 20 65 6c 74 20 61 6c |alist ni|l elt al|
|000052a0| 69 73 74 20 65 78 70 61 | 6e 64 65 64 2d 64 69 72 |ist expa|nded-dir|
|000052b0| 20 64 69 72 65 64 2d 69 | 6e 2d 74 68 69 73 2d 74 | dired-i|n-this-t|
|000052c0| 72 65 65 20 64 69 72 65 | 64 2d 72 65 6e 61 6d 65 |ree dire|d-rename|
|000052d0| 2d 73 75 62 64 69 72 2d | 32 20 74 6f 20 64 65 66 |-subdir-|2 to def|
|000052e0| 61 75 6c 74 2d 64 69 72 | 65 63 74 6f 72 79 20 64 |ault-dir|ectory d|
|000052f0| 69 72 65 64 2d 75 6e 61 | 64 76 65 72 74 69 73 65 |ired-una|dvertise|
|00005300| 20 66 69 6c 65 2d 6e 61 | 6d 65 2d 6e 6f 6e 64 69 | file-na|me-nondi|
|00005310| 72 65 63 74 6f 72 79 20 | 64 69 72 65 64 2d 64 69 |rectory |dired-di|
|00005320| 72 65 63 74 6f 72 79 20 | 64 69 72 65 63 74 6f 72 |rectory |director|
|00005330| 79 2d 66 69 6c 65 2d 6e | 61 6d 65 20 6e 65 77 2d |y-file-n|ame new-|
|00005340| 6e 61 6d 65 20 67 65 74 | 2d 62 75 66 66 65 72 20 |name get|-buffer |
|00005350| 72 65 6e 61 6d 65 2d 62 | 75 66 66 65 72 20 64 69 |rename-b|uffer di|
|00005360| 72 65 64 2d 61 64 76 65 | 72 74 69 73 65 5d 29 1f |red-adve|rtise]).|
|00005370| 28 23 24 20 2e 20 32 30 | 39 39 35 29 20 6e 69 6c |(#$ . 20|995) nil|
|00005380| 20 34 5d 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 | 4]).(de|falias '|
|00005390| 64 69 72 65 64 2d 72 65 | 6e 61 6d 65 2d 73 75 62 |dired-re|name-sub|
|000053a0| 64 69 72 2d 32 20 23 5b | 28 65 6c 74 20 64 69 72 |dir-2 #[|(elt dir|
|000053b0| 20 74 6f 29 20 23 40 34 | 32 36 20 28 22 8a c0 c1 | to) #@4|26 ("...|
|000053c0| 5c 6e 21 21 c1 0b 21 c4 | 1d 1e 06 1e 07 c8 0e 09 |\n!!..!.|........|
|000053d0| 21 62 88 ca 0e 0b 21 84 | 24 01 30 cc cd 5c 6e 5c |!b....!.|$.0..\n\|
|000053e0| 22 88 82 44 01 30 ce 94 | 62 88 cf 0e 07 ce 95 d0 |"..D.0..|b.......|
|000053f0| 23 83 3c 01 30 d1 0e 06 | d0 89 23 88 82 44 01 30 |#.<.0...|..#..D.0|
|00005400| cc d2 5c 6e 0e 09 40 23 | 88 0e 09 d3 d4 0e 07 0e |..\n..@#|........|
|00005410| 06 0e 09 40 23 21 a0 2c | 87 22 20 2e 20 5b 72 65 |...@#!.,|." . [re|
|00005420| 67 65 78 70 2d 71 75 6f | 74 65 20 64 69 72 65 63 |gexp-quo|te direc|
|00005430| 74 6f 72 79 2d 66 69 6c | 65 2d 6e 61 6d 65 20 64 |tory-fil|e-name d|
|00005440| 69 72 20 74 6f 20 6e 69 | 6c 20 62 75 66 66 65 72 |ir to ni|l buffer|
|00005450| 2d 72 65 61 64 2d 6f 6e | 6c 79 20 6e 65 77 74 65 |-read-on|ly newte|
|00005460| 78 74 20 72 65 67 65 78 | 70 20 64 69 72 65 64 2d |xt regex|p dired-|
|00005470| 67 65 74 2d 73 75 62 64 | 69 72 2d 6d 69 6e 20 65 |get-subd|ir-min e|
|00005480| 6c 74 20 6c 6f 6f 6b 69 | 6e 67 2d 61 74 20 64 69 |lt looki|ng-at di|
|00005490| 72 65 64 2d 73 75 62 64 | 69 72 2d 72 65 67 65 78 |red-subd|ir-regex|
|000054a0| 70 20 65 72 72 6f 72 20 | 22 25 73 20 6e 6f 74 20 |p error |"%s not |
|000054b0| 66 6f 75 6e 64 20 77 68 | 65 72 65 20 65 78 70 65 |found wh|ere expe|
|000054c0| 63 74 65 64 20 2d 20 64 | 69 72 65 64 2d 73 75 62 |cted - d|ired-sub|
|000054d0| 64 69 72 2d 61 6c 69 73 | 74 20 62 72 6f 6b 65 6e |dir-alis|t broken|
|000054e0| 3f 22 20 31 20 72 65 2d | 73 65 61 72 63 68 2d 66 |?" 1 re-|search-f|
|000054f0| 6f 72 77 61 72 64 20 74 | 20 72 65 70 6c 61 63 65 |orward t| replace|
|00005500| 2d 6d 61 74 63 68 20 22 | 45 78 70 65 63 74 65 64 |-match "|Expected|
|00005510| 20 74 6f 20 66 69 6e 64 | 20 60 25 73 27 20 69 6e | to find| `%s' in|
|00005520| 20 68 65 61 64 65 72 6c | 69 6e 65 20 6f 66 20 25 | headerl|ine of %|
|00005530| 73 22 20 64 69 72 65 64 | 2d 6e 6f 72 6d 61 6c 69 |s" dired|-normali|
|00005540| 7a 65 2d 73 75 62 64 69 | 72 20 64 69 72 65 64 2d |ze-subdi|r dired-|
|00005550| 72 65 70 6c 61 63 65 2d | 69 6e 2d 73 74 72 69 6e |replace-|in-strin|
|00005560| 67 5d 29 1f 28 23 24 20 | 2e 20 32 31 34 33 35 29 |g]).(#$ |. 21435)|
|00005570| 20 6e 69 6c 20 36 5d 29 | 0a 28 64 65 66 61 6c 69 | nil 6])|.(defali|
|00005580| 61 73 20 27 64 69 72 65 | 64 2d 63 72 65 61 74 65 |as 'dire|d-create|
|00005590| 2d 66 69 6c 65 73 20 23 | 5b 28 66 69 6c 65 2d 63 |-files #|[(file-c|
|000055a0| 72 65 61 74 6f 72 20 6f | 70 65 72 61 74 69 6f 6e |reator o|peration|
|000055b0| 20 66 6e 2d 6c 69 73 74 | 20 6e 61 6d 65 2d 63 6f | fn-list| name-co|
|000055c0| 6e 73 74 72 75 63 74 6f | 72 20 26 6f 70 74 69 6f |nstructo|r &optio|
|000055d0| 6e 61 6c 20 6d 61 72 6b | 65 72 2d 63 68 61 72 29 |nal mark|er-char)|
|000055e0| 20 23 40 31 33 31 38 20 | 28 22 c0 89 c1 5c 6e 47 | #@1318 |("...\nG|
|000055f0| 1b 1c 1d 1e 06 c0 89 89 | 1e 07 1e 08 1e 09 ca cb |........|........|
|00005600| 5c 6e 5c 22 88 2b 0e 06 | 83 32 01 30 cc cd ce 0e |\n\".+..|.2.0....|
|00005610| 0f 0e 06 47 0b d0 0b 21 | 25 0e 06 5c 22 88 82 52 |...G...!|%..\"..R|
|00005620| 01 30 0d 83 48 01 30 cc | cd d1 0e 0f 0d 47 0b d0 |.0..H.0.|.....G..|
|00005630| 0b 21 25 0d 5c 22 88 82 | 52 01 30 d2 d3 0e 0f 5c |.!%.\"..|R.0....\|
|00005640| 66 d0 5c 66 21 24 88 2c | d4 20 87 22 20 2e 20 5b |f.\f!$.,|. ." . [|
|00005650| 6e 69 6c 20 30 20 66 6e | 2d 6c 69 73 74 20 74 6f |nil 0 fn|-list to|
|00005660| 74 61 6c 20 73 75 63 63 | 65 73 73 2d 63 6f 75 6e |tal succ|ess-coun|
|00005670| 74 20 73 6b 69 70 70 65 | 64 20 66 61 69 6c 75 72 |t skippe|d failur|
|00005680| 65 73 20 6f 76 65 72 77 | 72 69 74 65 2d 62 61 63 |es overw|rite-bac|
|00005690| 6b 75 70 2d 71 75 65 72 | 79 20 6f 76 65 72 77 72 |kup-quer|y overwr|
|000056a0| 69 74 65 2d 71 75 65 72 | 79 20 74 6f 20 6d 61 70 |ite-quer|y to map|
|000056b0| 63 61 72 20 23 5b 28 66 | 72 6f 6d 29 20 22 08 09 |car #[(f|rom) "..|
|000056c0| 21 89 12 09 9a 83 14 01 | 30 c3 12 c4 c5 0e 06 97 |!.......|0.......|
|000056d0| 09 23 88 5c 6e 84 5c 22 | 01 30 c7 09 21 0e 08 42 |.#.\n.\"|.0..!..B|
|000056e0| 89 16 08 87 c9 5c 6e 21 | 89 1e 5c 6e 85 34 01 30 |.....\n!|..\n.4.0|
|000056f0| cb 1e 5c 66 cd ce cf 5c | 6e 23 29 1e 10 0e 11 a8 |..\f...\|n#).....|
|00005700| 83 41 01 30 0e 11 82 4d | 01 30 0e 11 83 4c 01 30 |.A.0...M|.0...L.0|
|00005710| d2 09 21 82 4d 01 30 c3 | 1e 13 d4 d5 d6 8f 2b 87 |..!.M.0.|......+.|
|00005720| 22 20 5b 6e 61 6d 65 2d | 63 6f 6e 73 74 72 75 63 |" [name-|construc|
|00005730| 74 6f 72 20 66 72 6f 6d | 20 74 6f 20 6e 69 6c 20 |tor from| to nil |
|00005740| 64 69 72 65 64 2d 6c 6f | 67 20 22 43 61 6e 6e 6f |dired-lo|g "Canno|
|00005750| 74 20 25 73 20 74 6f 20 | 73 61 6d 65 20 66 69 6c |t %s to |same fil|
|00005760| 65 3a 20 25 73 5c 6e 22 | 20 6f 70 65 72 61 74 69 |e: %s\n"| operati|
|00005770| 6f 6e 20 64 69 72 65 64 | 2d 6d 61 6b 65 2d 72 65 |on dired|-make-re|
|00005780| 6c 61 74 69 76 65 20 73 | 6b 69 70 70 65 64 20 66 |lative s|kipped f|
|00005790| 69 6c 65 2d 65 78 69 73 | 74 73 2d 70 20 6f 76 65 |ile-exis|ts-p ove|
|000057a0| 72 77 72 69 74 65 20 28 | 66 6f 72 6d 61 74 20 22 |rwrite (|format "|
|000057b0| 54 79 70 65 20 53 50 43 | 20 6f 72 20 60 79 27 20 |Type SPC| or `y' |
|000057c0| 74 6f 20 6f 76 65 72 77 | 72 69 74 65 20 66 69 6c |to overw|rite fil|
|000057d0| 65 20 60 25 73 27 2c 5c | 6e 44 45 4c 20 6f 72 20 |e `%s',\|nDEL or |
|000057e0| 60 6e 27 20 74 6f 20 73 | 6b 69 70 20 74 6f 20 6e |`n' to s|kip to n|
|000057f0| 65 78 74 2c 5c 6e 45 53 | 43 20 6f 72 20 60 71 27 |ext,\nES|C or `q'|
|00005800| 20 74 6f 20 6e 6f 74 20 | 6f 76 65 72 77 72 69 74 | to not |overwrit|
|00005810| 65 20 61 6e 79 20 6f 66 | 20 74 68 65 20 72 65 6d |e any of| the rem|
|00005820| 61 69 6e 69 6e 67 20 66 | 69 6c 65 73 2c 5c 6e 60 |aining f|iles,\n`|
|00005830| 21 27 20 74 6f 20 6f 76 | 65 72 77 72 69 74 65 20 |!' to ov|erwrite |
|00005840| 61 6c 6c 20 72 65 6d 61 | 69 6e 69 6e 67 20 66 69 |all rema|ining fi|
|00005850| 6c 65 73 20 77 69 74 68 | 20 6e 6f 20 6d 6f 72 65 |les with| no more|
|00005860| 20 71 75 65 73 74 69 6f | 6e 73 2e 22 20 74 6f 29 | questio|ns." to)|
|00005870| 20 68 65 6c 70 2d 66 6f | 72 6d 20 64 69 72 65 64 | help-fo|rm dired|
|00005880| 2d 71 75 65 72 79 20 6f | 76 65 72 77 72 69 74 65 |-query o|verwrite|
|00005890| 2d 71 75 65 72 79 20 22 | 4f 76 65 72 77 72 69 74 |-query "|Overwrit|
|000058a0| 65 20 60 25 73 27 3f 22 | 20 64 69 72 65 64 2d 6f |e `%s'?"| dired-o|
|000058b0| 76 65 72 77 72 69 74 65 | 2d 63 6f 6e 66 69 72 6d |verwrite|-confirm|
|000058c0| 65 64 20 6d 61 72 6b 65 | 72 2d 63 68 61 72 20 64 |ed marke|r-char d|
|000058d0| 69 72 65 64 2d 66 69 6c | 65 2d 6d 61 72 6b 65 72 |ired-fil|e-marker|
|000058e0| 20 61 63 74 75 61 6c 2d | 6d 61 72 6b 65 72 2d 63 | actual-|marker-c|
|000058f0| 68 61 72 20 65 72 72 20 | 28 62 79 74 65 2d 63 6f |har err |(byte-co|
|00005900| 64 65 20 22 08 09 5c 6e | 0b 23 88 5c 66 83 0e 01 |de "..\n|.#.\f...|
|00005910| 30 c5 5c 6e 21 88 0e 06 | 54 16 06 c7 c8 0e 09 0e |0.\n!...|T.......|
|00005920| 06 0e 5c 6e 24 88 cb 5c | 6e 0e 5c 66 5c 22 87 22 |..\n$..\|n.\f\"."|
|00005930| 20 5b 66 69 6c 65 2d 63 | 72 65 61 74 6f 72 20 66 | [file-c|reator f|
|00005940| 72 6f 6d 20 74 6f 20 64 | 69 72 65 64 2d 6f 76 65 |rom to d|ired-ove|
|00005950| 72 77 72 69 74 65 2d 63 | 6f 6e 66 69 72 6d 65 64 |rwrite-c|onfirmed|
|00005960| 20 6f 76 65 72 77 72 69 | 74 65 20 64 69 72 65 64 | overwri|te dired|
|00005970| 2d 72 65 6d 6f 76 65 2d | 66 69 6c 65 20 73 75 63 |-remove-|file suc|
|00005980| 63 65 73 73 2d 63 6f 75 | 6e 74 20 6d 65 73 73 61 |cess-cou|nt messa|
|00005990| 67 65 20 22 25 73 3a 20 | 25 64 20 6f 66 20 25 64 |ge "%s: |%d of %d|
|000059a0| 22 20 6f 70 65 72 61 74 | 69 6f 6e 20 74 6f 74 61 |" operat|ion tota|
|000059b0| 6c 20 64 69 72 65 64 2d | 61 64 64 2d 66 69 6c 65 |l dired-|add-file|
|000059c0| 20 61 63 74 75 61 6c 2d | 6d 61 72 6b 65 72 2d 63 | actual-|marker-c|
|000059d0| 68 61 72 5d 20 35 29 20 | 28 28 66 69 6c 65 2d 65 |har] 5) |((file-e|
|000059e0| 72 72 6f 72 20 28 62 79 | 74 65 2d 63 6f 64 65 20 |rror (by|te-code |
|000059f0| 22 c0 09 21 5c 6e 42 12 | c3 c4 0d 09 0e 06 0e 07 |"..!\nB.|........|
|00005a00| 25 87 22 20 5b 64 69 72 | 65 64 2d 6d 61 6b 65 2d |%." [dir|ed-make-|
|00005a10| 72 65 6c 61 74 69 76 65 | 20 66 72 6f 6d 20 66 61 |relative| from fa|
|00005a20| 69 6c 75 72 65 73 20 64 | 69 72 65 64 2d 6c 6f 67 |ilures d|ired-log|
|00005a30| 20 22 25 73 20 60 25 73 | 27 20 74 6f 20 60 25 73 | "%s `%s|' to `%s|
|00005a40| 27 20 66 61 69 6c 65 64 | 3a 5c 6e 25 73 5c 6e 22 |' failed|:\n%s\n"|
|00005a50| 20 6f 70 65 72 61 74 69 | 6f 6e 20 74 6f 20 65 72 | operati|on to er|
|00005a60| 72 5d 20 36 29 29 29 5d | 20 35 5d 20 64 69 72 65 |r] 6)))]| 5] dire|
|00005a70| 64 2d 6c 6f 67 2d 73 75 | 6d 6d 61 72 79 20 66 6f |d-log-su|mmary fo|
|00005a80| 72 6d 61 74 20 22 25 73 | 20 66 61 69 6c 65 64 20 |rmat "%s| failed |
|00005a90| 66 6f 72 20 25 64 20 6f | 66 20 25 64 20 66 69 6c |for %d o|f %d fil|
|00005aa0| 65 25 73 22 20 6f 70 65 | 72 61 74 69 6f 6e 20 64 |e%s" ope|ration d|
|00005ab0| 69 72 65 64 2d 70 6c 75 | 72 61 6c 2d 73 20 22 25 |ired-plu|ral-s "%|
|00005ac0| 73 3a 20 25 64 20 6f 66 | 20 25 64 20 66 69 6c 65 |s: %d of| %d file|
|00005ad0| 25 73 20 73 6b 69 70 70 | 65 64 22 20 6d 65 73 73 |%s skipp|ed" mess|
|00005ae0| 61 67 65 20 22 25 73 3a | 20 25 73 20 66 69 6c 65 |age "%s:| %s file|
|00005af0| 25 73 22 20 64 69 72 65 | 64 2d 6d 6f 76 65 2d 74 |%s" dire|d-move-t|
|00005b00| 6f 2d 66 69 6c 65 6e 61 | 6d 65 5d 29 1f 28 23 24 |o-filena|me]).(#$|
|00005b10| 20 2e 20 32 31 39 39 32 | 29 20 6e 69 6c 20 38 5d | . 21992|) nil 8]|
|00005b20| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 64 69 72 |).(defal|ias 'dir|
|00005b30| 65 64 2d 64 6f 2d 63 72 | 65 61 74 65 2d 66 69 6c |ed-do-cr|eate-fil|
|00005b40| 65 73 20 23 5b 28 6f 70 | 2d 73 79 6d 62 6f 6c 20 |es #[(op|-symbol |
|00005b50| 66 69 6c 65 2d 63 72 65 | 61 74 6f 72 20 6f 70 65 |file-cre|ator ope|
|00005b60| 72 61 74 69 6f 6e 20 61 | 72 67 20 26 6f 70 74 69 |ration a|rg &opti|
|00005b70| 6f 6e 61 6c 20 6d 61 72 | 6b 65 72 2d 63 68 61 72 |onal mar|ker-char|
|00005b80| 20 6f 70 31 20 68 6f 77 | 2d 74 6f 29 20 23 40 35 | op1 how|-to) #@5|
|00005b90| 39 34 20 28 22 08 84 06 | 01 30 09 10 c2 c3 5c 66 |94 ("...|.0....\f|
|00005ba0| 5c 22 89 1d 47 1e 06 c7 | c8 0e 06 c9 55 83 1c 01 |\"..G...|....U...|
|00005bb0| 30 08 82 1d 01 30 09 ca | 50 cb 20 0e 5c 66 5c 66 |0....0..|P. .\f\f|
|00005bc0| cd ce 0d 5c 22 25 21 1e | 0f 0e 10 84 38 01 30 d1 |...\"%!.|....8.0.|
|00005bd0| 0e 0f 21 82 48 01 30 0e | 10 d2 3d 83 43 01 30 c3 |..!.H.0.|..=.C.0.|
|00005be0| 82 48 01 30 0e 10 0e 0f | 21 1e 13 0e 06 c9 56 83 |.H.0....|!.....V.|
|00005bf0| 5d 01 30 0e 13 84 5d 01 | 30 d4 d5 09 0e 0f 23 88 |].0...].|0.....#.|
|00005c00| 0e 13 84 68 01 30 d6 0e | 0f 21 16 0f d7 0e 18 09 |...h.0..|.!......|
|00005c10| 0d 0e 13 83 76 01 30 d9 | 82 77 01 30 da 0e 1b 25 |....v.0.|.w.0...%|
|00005c20| 2c 87 22 20 2e 20 5b 6f | 70 31 20 6f 70 65 72 61 |,." . [o|p1 opera|
|00005c30| 74 69 6f 6e 20 64 69 72 | 65 64 2d 67 65 74 2d 6d |tion dir|ed-get-m|
|00005c40| 61 72 6b 65 64 2d 66 69 | 6c 65 73 20 6e 69 6c 20 |arked-fi|les nil |
|00005c50| 61 72 67 20 66 6e 2d 6c | 69 73 74 20 66 6e 2d 63 |arg fn-l|ist fn-c|
|00005c60| 6f 75 6e 74 20 65 78 70 | 61 6e 64 2d 66 69 6c 65 |ount exp|and-file|
|00005c70| 2d 6e 61 6d 65 20 64 69 | 72 65 64 2d 6d 61 72 6b |-name di|red-mark|
|00005c80| 2d 72 65 61 64 2d 66 69 | 6c 65 2d 6e 61 6d 65 20 |-read-fi|le-name |
|00005c90| 31 20 22 20 25 73 20 74 | 6f 3a 20 22 20 64 69 72 |1 " %s t|o: " dir|
|00005ca0| 65 64 2d 64 77 69 6d 2d | 74 61 72 67 65 74 2d 64 |ed-dwim-|target-d|
|00005cb0| 69 72 65 63 74 6f 72 79 | 20 6f 70 2d 73 79 6d 62 |irectory| op-symb|
|00005cc0| 6f 6c 20 6d 61 70 63 61 | 72 20 64 69 72 65 64 2d |ol mapca|r dired-|
|00005cd0| 6d 61 6b 65 2d 72 65 6c | 61 74 69 76 65 20 74 61 |make-rel|ative ta|
|00005ce0| 72 67 65 74 20 68 6f 77 | 2d 74 6f 20 66 69 6c 65 |rget how|-to file|
|00005cf0| 2d 64 69 72 65 63 74 6f | 72 79 2d 70 20 74 20 69 |-directo|ry-p t i|
|00005d00| 6e 74 6f 2d 64 69 72 20 | 65 72 72 6f 72 20 22 4d |nto-dir |error "M|
|00005d10| 61 72 6b 65 64 20 25 73 | 3a 20 74 61 72 67 65 74 |arked %s|: target|
|00005d20| 20 6d 75 73 74 20 62 65 | 20 61 20 64 69 72 65 63 | must be| a direc|
|00005d30| 74 6f 72 79 3a 20 25 73 | 22 20 64 69 72 65 63 74 |tory: %s|" direct|
|00005d40| 6f 72 79 2d 66 69 6c 65 | 2d 6e 61 6d 65 20 64 69 |ory-file|-name di|
|00005d50| 72 65 64 2d 63 72 65 61 | 74 65 2d 66 69 6c 65 73 |red-crea|te-files|
|00005d60| 20 66 69 6c 65 2d 63 72 | 65 61 74 6f 72 20 23 5b | file-cr|eator #[|
|00005d70| 28 66 72 6f 6d 29 20 22 | c0 c1 5c 6e 21 0b 5c 22 |(from) "|..\n!.\"|
|00005d80| 87 22 20 5b 65 78 70 61 | 6e 64 2d 66 69 6c 65 2d |." [expa|nd-file-|
|00005d90| 6e 61 6d 65 20 66 69 6c | 65 2d 6e 61 6d 65 2d 6e |name fil|e-name-n|
|00005da0| 6f 6e 64 69 72 65 63 74 | 6f 72 79 20 66 72 6f 6d |ondirect|ory from|
|00005db0| 20 74 61 72 67 65 74 5d | 20 33 5d 20 23 5b 28 66 | target]| 3] #[(f|
|00005dc0| 72 6f 6d 29 20 22 08 87 | 22 20 5b 74 61 72 67 65 |rom) "..|" [targe|
|00005dd0| 74 5d 20 31 5d 20 6d 61 | 72 6b 65 72 2d 63 68 61 |t] 1] ma|rker-cha|
|00005de0| 72 5d 29 1f 28 23 24 20 | 2e 20 32 33 34 34 33 29 |r]).(#$ |. 23443)|
|00005df0| 20 6e 69 6c 20 31 30 5d | 29 0a 28 64 65 66 61 6c | nil 10]|).(defal|
|00005e00| 69 61 73 20 27 64 69 72 | 65 64 2d 6d 61 72 6b 2d |ias 'dir|ed-mark-|
|00005e10| 72 65 61 64 2d 66 69 6c | 65 2d 6e 61 6d 65 20 23 |read-fil|e-name #|
|00005e20| 5b 28 70 72 6f 6d 70 74 | 20 64 69 72 20 6f 70 2d |[(prompt| dir op-|
|00005e30| 73 79 6d 62 6f 6c 20 61 | 72 67 20 66 69 6c 65 73 |symbol a|rg files|
|00005e40| 29 20 23 40 31 32 35 20 | 28 22 c0 c1 5c 6e 0b c4 |) #@125 |("..\n..|
|00005e50| c5 0e 06 c7 0e 08 0b 5c | 22 5c 22 0e 09 26 06 87 |.......\|"\"..&..|
|00005e60| 22 20 2e 20 5b 64 69 72 | 65 64 2d 6d 61 72 6b 2d |" . [dir|ed-mark-|
|00005e70| 70 6f 70 2d 75 70 20 6e | 69 6c 20 6f 70 2d 73 79 |pop-up n|il op-sy|
|00005e80| 6d 62 6f 6c 20 66 69 6c | 65 73 20 72 65 61 64 2d |mbol fil|es read-|
|00005e90| 66 69 6c 65 2d 6e 61 6d | 65 20 66 6f 72 6d 61 74 |file-nam|e format|
|00005ea0| 20 70 72 6f 6d 70 74 20 | 64 69 72 65 64 2d 6d 61 | prompt |dired-ma|
|00005eb0| 72 6b 2d 70 72 6f 6d 70 | 74 20 61 72 67 20 64 69 |rk-promp|t arg di|
|00005ec0| 72 5d 29 1f 28 23 24 20 | 2e 20 32 34 31 33 36 29 |r]).(#$ |. 24136)|
|00005ed0| 20 6e 69 6c 20 31 30 5d | 29 0a 28 64 65 66 61 6c | nil 10]|).(defal|
|00005ee0| 69 61 73 20 27 64 69 72 | 65 64 2d 64 77 69 6d 2d |ias 'dir|ed-dwim-|
|00005ef0| 74 61 72 67 65 74 2d 64 | 69 72 65 63 74 6f 72 79 |target-d|irectory|
|00005f00| 20 23 5b 6e 69 6c 20 23 | 40 31 38 32 20 28 22 08 | #[nil #|@182 (".|
|00005f10| c1 3d 85 08 01 30 c2 20 | 1b 5c 66 83 2c 01 30 c5 |.=...0. |.\f.,.0.|
|00005f20| c6 20 21 1e 07 8a 0e 07 | 71 88 08 c1 3d 85 20 01 |. !.....|q...=. .|
|00005f30| 30 c2 20 29 89 1e 08 86 | 28 01 30 0b 2a 82 2d 01 |0. )....|(.0.*.-.|
|00005f40| 30 0b 29 87 22 20 2e 20 | 5b 6d 61 6a 6f 72 2d 6d |0.)." . |[major-m|
|00005f50| 6f 64 65 20 64 69 72 65 | 64 2d 6d 6f 64 65 20 64 |ode dire|d-mode d|
|00005f60| 69 72 65 64 2d 63 75 72 | 72 65 6e 74 2d 64 69 72 |ired-cur|rent-dir|
|00005f70| 65 63 74 6f 72 79 20 74 | 68 69 73 2d 64 69 72 20 |ectory t|his-dir |
|00005f80| 64 69 72 65 64 2d 64 77 | 69 6d 2d 74 61 72 67 65 |dired-dw|im-targe|
|00005f90| 74 20 77 69 6e 64 6f 77 | 2d 62 75 66 66 65 72 20 |t window|-buffer |
|00005fa0| 6e 65 78 74 2d 77 69 6e | 64 6f 77 20 6f 74 68 65 |next-win|dow othe|
|00005fb0| 72 2d 62 75 66 20 6f 74 | 68 65 72 2d 64 69 72 5d |r-buf ot|her-dir]|
|00005fc0| 29 1f 28 23 24 20 2e 20 | 32 34 33 33 33 29 20 6e |).(#$ . |24333) n|
|00005fd0| 69 6c 20 33 5d 29 0a 23 | 40 33 38 20 43 72 65 61 |il 3]).#|@38 Crea|
|00005fe0| 74 65 20 61 20 64 69 72 | 65 63 74 6f 72 79 20 63 |te a dir|ectory c|
|00005ff0| 61 6c 6c 65 64 20 44 49 | 52 45 43 54 4f 52 59 2e |alled DI|RECTORY.|
|00006000| 1f 0a 28 64 65 66 61 6c | 69 61 73 20 27 64 69 72 |..(defal|ias 'dir|
|00006010| 65 64 2d 63 72 65 61 74 | 65 2d 64 69 72 65 63 74 |ed-creat|e-direct|
|00006020| 6f 72 79 20 23 5b 28 64 | 69 72 65 63 74 6f 72 79 |ory #[(d|irectory|
|00006030| 29 20 23 40 31 33 38 20 | 28 22 c0 c1 5c 6e 21 21 |) #@138 |("..\n!!|
|00006040| 1b c4 0b 21 88 c5 0b 21 | 88 c6 20 29 87 22 20 2e |...!...!|.. )." .|
|00006050| 20 5b 64 69 72 65 63 74 | 6f 72 79 2d 66 69 6c 65 | [direct|ory-file|
|00006060| 2d 6e 61 6d 65 20 65 78 | 70 61 6e 64 2d 66 69 6c |-name ex|pand-fil|
|00006070| 65 2d 6e 61 6d 65 20 64 | 69 72 65 63 74 6f 72 79 |e-name d|irectory|
|00006080| 20 65 78 70 61 6e 64 65 | 64 20 6d 61 6b 65 2d 64 | expande|d make-d|
|00006090| 69 72 65 63 74 6f 72 79 | 20 64 69 72 65 64 2d 61 |irectory| dired-a|
|000060a0| 64 64 2d 66 69 6c 65 20 | 64 69 72 65 64 2d 6d 6f |dd-file |dired-mo|
|000060b0| 76 65 2d 74 6f 2d 66 69 | 6c 65 6e 61 6d 65 5d 29 |ve-to-fi|lename])|
|000060c0| 1f 28 23 24 20 2e 20 32 | 34 36 33 32 29 20 6e 69 |.(#$ . 2|4632) ni|
|000060d0| 6c 20 33 20 28 23 24 20 | 2e 20 32 34 35 34 30 29 |l 3 (#$ |. 24540)|
|000060e0| 20 28 6c 69 73 74 20 28 | 72 65 61 64 2d 66 69 6c | (list (|read-fil|
|000060f0| 65 2d 6e 61 6d 65 20 22 | 43 72 65 61 74 65 20 64 |e-name "|Create d|
|00006100| 69 72 65 63 74 6f 72 79 | 3a 20 22 20 28 64 69 72 |irectory|: " (dir|
|00006110| 65 64 2d 63 75 72 72 65 | 6e 74 2d 64 69 72 65 63 |ed-curre|nt-direc|
|00006120| 74 6f 72 79 29 29 29 5d | 29 0a 28 64 65 66 61 6c |tory)))]|).(defal|
|00006130| 69 61 73 20 27 64 69 72 | 65 64 2d 69 6e 74 6f 2d |ias 'dir|ed-into-|
|00006140| 64 69 72 2d 77 69 74 68 | 2d 73 79 6d 6c 69 6e 6b |dir-with|-symlink|
|00006150| 73 20 23 5b 28 74 61 72 | 67 65 74 29 20 23 40 36 |s #[(tar|get) #@6|
|00006160| 32 20 28 22 c0 09 21 85 | 5c 6e 01 30 c2 09 21 3f |2 ("..!.|\n.0..!?|
|00006170| 87 22 20 2e 20 5b 66 69 | 6c 65 2d 64 69 72 65 63 |." . [fi|le-direc|
|00006180| 74 6f 72 79 2d 70 20 74 | 61 72 67 65 74 20 66 69 |tory-p t|arget fi|
|00006190| 6c 65 2d 73 79 6d 6c 69 | 6e 6b 2d 70 5d 29 1f 28 |le-symli|nk-p]).(|
|000061a0| 23 24 20 2e 20 32 34 39 | 33 30 29 20 6e 69 6c 20 |#$ . 249|30) nil |
|000061b0| 32 5d 29 0a 23 40 33 36 | 39 20 43 6f 70 79 20 61 |2]).#@36|9 Copy a|
|000061c0| 6c 6c 20 6d 61 72 6b 65 | 64 20 28 6f 72 20 6e 65 |ll marke|d (or ne|
|000061d0| 78 74 20 41 52 47 29 20 | 66 69 6c 65 73 2c 20 6f |xt ARG) |files, o|
|000061e0| 72 20 63 6f 70 79 20 74 | 68 65 20 63 75 72 72 65 |r copy t|he curre|
|000061f0| 6e 74 20 66 69 6c 65 2e | 0a 54 68 69 73 20 6e 6f |nt file.|.This no|
|00006200| 72 6d 61 6c 6c 79 20 70 | 72 65 73 65 72 76 65 73 |rmally p|reserves|
|00006210| 20 74 68 65 20 6c 61 73 | 74 2d 6d 6f 64 69 66 69 | the las|t-modifi|
|00006220| 65 64 20 64 61 74 65 20 | 77 68 65 6e 20 63 6f 70 |ed date |when cop|
|00006230| 79 69 6e 67 2e 0a 57 68 | 65 6e 20 6f 70 65 72 61 |ying..Wh|en opera|
|00006240| 74 69 6e 67 20 6f 6e 20 | 6a 75 73 74 20 74 68 65 |ting on |just the|
|00006250| 20 63 75 72 72 65 6e 74 | 20 66 69 6c 65 2c 20 79 | current| file, y|
|00006260| 6f 75 20 73 70 65 63 69 | 66 79 20 74 68 65 20 6e |ou speci|fy the n|
|00006270| 65 77 20 6e 61 6d 65 2e | 0a 57 68 65 6e 20 6f 70 |ew name.|.When op|
|00006280| 65 72 61 74 69 6e 67 20 | 6f 6e 20 6d 75 6c 74 69 |erating |on multi|
|00006290| 70 6c 65 20 6f 72 20 6d | 61 72 6b 65 64 20 66 69 |ple or m|arked fi|
|000062a0| 6c 65 73 2c 20 79 6f 75 | 20 73 70 65 63 69 66 79 |les, you| specify|
|000062b0| 20 61 20 64 69 72 65 63 | 74 6f 72 79 2c 0a 61 6e | a direc|tory,.an|
|000062c0| 64 20 6e 65 77 20 63 6f | 70 69 65 73 20 6f 66 20 |d new co|pies of |
|000062d0| 74 68 65 73 65 20 66 69 | 6c 65 73 20 61 72 65 20 |these fi|les are |
|000062e0| 6d 61 64 65 20 69 6e 20 | 74 68 61 74 20 64 69 72 |made in |that dir|
|000062f0| 65 63 74 6f 72 79 0a 77 | 69 74 68 20 74 68 65 20 |ectory.w|ith the |
|00006300| 73 61 6d 65 20 6e 61 6d | 65 73 20 74 68 61 74 20 |same nam|es that |
|00006310| 74 68 65 20 66 69 6c 65 | 73 20 63 75 72 72 65 6e |the file|s curren|
|00006320| 74 6c 79 20 68 61 76 65 | 2e 1f 0a 28 64 65 66 61 |tly have|...(defa|
|00006330| 6c 69 61 73 20 27 64 69 | 72 65 64 2d 64 6f 2d 63 |lias 'di|red-do-c|
|00006340| 6f 70 79 20 23 5b 28 26 | 6f 70 74 69 6f 6e 61 6c |opy #[(&|optional|
|00006350| 20 61 72 67 29 20 23 40 | 31 34 35 20 28 22 c0 c1 | arg) #@|145 ("..|
|00006360| c2 0b 83 0b 01 30 c4 82 | 5c 66 01 30 c5 0e 06 0e |.....0..|\f.0....|
|00006370| 07 25 87 22 20 2e 20 5b | 64 69 72 65 64 2d 64 6f |.%." . [|dired-do|
|00006380| 2d 63 72 65 61 74 65 2d | 66 69 6c 65 73 20 63 6f |-create-|files co|
|00006390| 70 79 20 64 69 72 65 64 | 2d 63 6f 70 79 2d 66 69 |py dired|-copy-fi|
|000063a0| 6c 65 20 64 69 72 65 64 | 2d 63 6f 70 79 2d 70 72 |le dired|-copy-pr|
|000063b0| 65 73 65 72 76 65 2d 74 | 69 6d 65 20 22 43 6f 70 |eserve-t|ime "Cop|
|000063c0| 79 20 5b 2d 70 5d 22 20 | 22 43 6f 70 79 22 20 61 |y [-p]" |"Copy" a|
|000063d0| 72 67 20 64 69 72 65 64 | 2d 6b 65 65 70 2d 6d 61 |rg dired|-keep-ma|
|000063e0| 72 6b 65 72 2d 63 6f 70 | 79 5d 29 1f 28 23 24 20 |rker-cop|y]).(#$ |
|000063f0| 2e 20 32 35 34 33 36 29 | 20 6e 69 6c 20 36 20 28 |. 25436)| nil 6 (|
+--------+-------------------------+-------------------------+--------+--------+